Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 27. 09. 2013 18:16
- Jan Jícha
- Veterán
- Místo: Plzeň/Mnichov
- Příspěvky: 1801
- Škola: ZČU - FST - KMM
- Pozice: Safety Engineer
- Reputace: 74
- Web
Procedura v Delphi
Dobrý den, mám napsat proceduru (pár řádků).
Se zadáním : Z textového souboru vytvořit dva, jeden s lichými řádky druhý se sudými řádky
Jsem v tom úplný začátečník, pomohl by někdo?
Offline
#2 27. 09. 2013 20:57
- Jan Jícha
- Veterán
- Místo: Plzeň/Mnichov
- Příspěvky: 1801
- Škola: ZČU - FST - KMM
- Pozice: Safety Engineer
- Reputace: 74
- Web
Re: Procedura v Delphi
↑ Jan Jícha: Respektive, je toto dobře?
var
t,u,v:text;
s:string;
rozhodnuti:boolean;
begin
assign(t,'franta.txt');
assign(u,'f1.txt');
assign(v,'f2.txt');
reset(t);
rewrite(u);
rewrite(v);
rozhodnuti := false;
while not eof(t) do begin
readln(t,s);
if rozhodnuti then
writeln(u,s)
else
writeln(v,s);
rozhodnuti := not rozhodnutii;
end;
close(t);
close(u);
close(v);
end.
Offline
#3 06. 10. 2013 13:45
Re: Procedura v Delphi
Dobry den,
myslim, ze to dobre nebude, protoze po prvnim pruchodu se nastavi boolean na true a uz se nezmeni,
takze by to chtelo rozhodnuti negovat i v druhe vetvi te podminky.
Taky si nejsem jistej, jestli readln nacte opravdu cely radek, pokud ne, existuje funkce
eol (end of line), ktera funguje podobne jako eof (end of file).
Jinak doporucuju si program prokrokovat (debug, breakpointy) a sledovat (watch) dulezite promenne.
Offline