program prevodTextu;
{ Program čte znaky ze souboru in.txt a opisuje je na standardní výstup.
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. }
{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. }
reset(f); { Ze souboru f chceme číst. }
while not EOF(f) do { Dokud jsme nenarazili na konec souboru f (!) }
begin
read(f,c); { Chceme číst ze souboru f. }
write(preved(c)); { Zapisovat chceme na standardní výstup. }
end;
close( f ); { Nesmíme zapomenout soubor f 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ů). ;)