program prevodTextu;
{ Program čte znaky ze standardního vstupu 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;
{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
while not EOF do { Všimněte si, že EOF za sebou nemá žádnou závorku.
Tedy se týká standardního vstupu (klávesnice). }
begin
read(c); { Všimněte si, že je zde jen parametr c. }
write(preved(c)); { Všimněte si, že je zde jen parametr c. }
end;
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ů). ;)