Anonymní profil romanzdk – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil romanzdk – Programujte.comAnonymní profil romanzdk – Programujte.com

 

Příspěvky odeslané z IP adresy 90.182.20.–

romanzdk
Pascal › Nacteni hodnot do pole
30. 4. 2015   #201862

Jojo, ja to prave vetsinou clenim, ale u tohoto jednoducheho prikladu jsem to jen rychle splacal :D. Diky :)

Pascal › Nahrazení slov v souboru txt
10. 3. 2015   #200103

Nekdy mi to prepise vic souradnici a pokud se slovo na danem radku nevyskytuje, vytvori ho na zacatku (vim proc, ale nevim jak to opravit). A pak aby se to ulozilo do toho stejneho souboru.

Zasláno z mobilního telefonu.

Pascal › Nahrazení slov v souboru txt
10. 3. 2015   #200084

Zdravím pánové,
mám tady problém. Musím udělat program, který po zadání souboru txt uživatelem a slova které má vyhledat, to slovo nahradí (opět slovem, kterě zadal uživatel) a soubor uloží. Zde je můj současný kód:


program Nahrazovac;
uses crt;

var txt,vystup:textfile; {txt je vstupni soubor, vystup bude novy prepsany soubor}
vstup,slovo,nahrada:string; {vstup je promenna s nazvem vstupniho souboru, slovo je hledane slovo a nahrada je slovo, ktere se bude nahrazovat}
vypis:string; {vypis je promenna, pres kterou odkazuji na retezec}
delka:byte; {prvni souradnice hledaneho slova}

begin
clrscr();
writeln('Napiste nazev souboru (i s priponou txt)');
readln(vstup);
Assign(txt, vstup);
{$I-}
Reset(txt);
{$I+}
if ioresult 0 then
begin
writeln('Soubor se nepodarilo otevrit');
Exit;
end;
Assign(vystup, 'nahrazeny');
Rewrite(vystup);

writeln('Zadejte slovo, ktere chcete nahradit.');
readln(slovo);
writeln('Zadejte slovo, kterym ho chcete nahradit.');
readln(nahrada);

while not eof(txt) do
begin
readln(txt, vypis);
delka := pos(slovo,vypis);

if pos(slovo, vypis) = 0 then
se

delete(vypis, delka, delka + (length(slovo) - 1)); {Melo by to smazat ze souboru vypis slovo na pozicich prvniho znaku slova a prvniho znaku slova + delky slova - 1}
insert(nahrada, vypis, delka);
writeln(vypis);
end;
Close(txt);
readln;
end.

Zasláno z mobilního telefonu.

Java › GUI- nefunkční tlačítka
16. 12. 2013   #185322

#4 NotBeginner
já to pošlu až budu doma, ve škole to nemám

Java › Continue
25. 11. 2013   #184364

 Udělal jsem to přehlednější, ale pořád mi to continue háže chybu 

}    if (odecteneSirky < 3)  {
	        pocetSirek = pocetSirek - odecteneSirky;
	        System.out.println("Zbývá" + pocetSirek);
	        continue;
	 }   else  {
	        	 System.out.println("Nelze");
	         kdoZacne = false;
package thecode;

import java.util.Scanner;

public class Game {


	public static void main(String[] args) {
		   Scanner vstupUzivatele1 = new Scanner (System.in);
		   Scanner vstupUzivatele2 = new Scanner (System.in);
		   Scanner vstupUzivatele3 = new Scanner (System.in);
		   boolean kdoZacne = true;
		   int pocetSirek = 0;
		   int odecteneSirky = 1;
	       System.out.print("S kolika sirkami chcete hrát (10+): ");
	       pocetSirek = vstupUzivatele1.nextInt();		   
	   if  (pocetSirek > 10) {
         System.out.print("Chcete hrát jako první(true or false)?");
	       kdoZacne = vstupUzivatele2.nextBoolean();
	     System.out.println("Hra začíná");
	   } else  {
		   System.out.println("Neplatný počet sirek."); 
	}   if (kdoZacne = true) {
       	 System.out.println("Začínáte s " + pocetSirek);
              System.out.print("Kolik odeberete sirek:");
              odecteneSirky = vstupUzivatele3.nextInt(); 
	    
	 }   if (odecteneSirky > 0) {
	          System.out.println();
	 }  else  {
	        	   System.out.println("Nelze");
	              
	 }    if (odecteneSirky < 3)  {
	        pocetSirek = pocetSirek - odecteneSirky;
	        System.out.println("Zbývá" + pocetSirek);
	        continue;
	 }   else  {
	        	 System.out.println("Nelze");
	         kdoZacne = false;
	 }      if (pocetSirek > 0) {
	            System.out.println();
	 }     if (pocetSirek == 0) 
	    	  System.out.println("Vyhrál jste "); 
	   
	}
}
	

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý