program prevodTextu;
{ Program čte znaky ze souboru in.txt a opisuje je do souboru out1.txt.
Pokud se jedná o velké písmeno, vypíše místo něj příslušné malé písmeno.}
var c:char;
f:text; { Proměnná pro práci s textovým souborem. }
g:text; { Proměnná pro práci s textovým souborem. }
{Mala pismena zakladni abecedy prevede na velka, ostatni nezmeni.}
function preved( c:char ):char;
begin
preved := c;
if ( c >= 'A' ) and ( c <= 'Z' ) then
preved := chr( ord(c) + ord('a') - ord('A') );
end;
begin
assign(f,'in1.txt'); { Textové proměnné f přiřadíme relativní cestu k souboru. }
assign(g,'out1.txt'); { Textové proměnné g přiřadíme relativní cestu k souboru. }
reset( f ); { Ze souboru f chceme číst. }
rewrite( g ); { Do souboru g chceme zapisovat -
a pokud už takový soubor existoval, tak ho přepíšeme.}
while not EOF( f ) do { Dokud jsme nenarazili na konec souboru f (!) }
begin
read( f,c ); { Chceme číst ze souboru f. }
write( g, preved( c ) ); { Chceme zapisovat do souboru g. }
end;
close( f ); { Nesmíme zapomenout soubor f zavřít. }
close( g ); { Nesmíme zapomenout soubor g zavřít. }
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)