program devypatlator;
{ Jednoduchá verze devypatlátoru, která opisuje vstup
a zároveň převádí velká písmena (anglické abecedy) na malá. }
var c : char;
{ Dostane znak a je-li to velké písmeno anglické abecedy, vrátí příslušné malé písmeno,
jinak vrátí stejný znak.}
function devypatlej(c:char):char;
begin
if (c >= 'A') and (c <= 'Z') then
devypatlej := chr(ord(c) + ord ('a') - ord('A')) { Nejdříve odečteme rozdíl kódů 'A' a 'a' a pak to
převedeme zpět na znak.}
else
devypatlej := c;
end;
begin
while not(eof) do { Použijeme stejnou strukturu jako u programu, který opisoval vstup... }
begin
read(c);
write(devypatlej(c)); { Jen každé písmeno nejdříve převedeme na "správné". }
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ů). ;)