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
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
↑ 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
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