sifrovatko [Programování]

Zadání

Napište jednoduché šifrovátko. Program přečte znak. Je-li tímto znakem a, napíše z, pro b vypíše y, pro c vypíše x, pro d vypíše w, pro e vypíše v, atd,… pro y vypíše b, a pro z vypíše a.

Řešení

 
const
    {kod znaku 'a' v tabulce znaku}
    KOD_A = ord('a');
 
    {kod znaku 'z' v tabulce znaku}
    KOD_Z = ord('z');
 
var
  c,               {uzivatelem zadany znak}
  c_sifr: char;    {znak po zasifrovani}
 
begin
  {precteme}
  writeln('Zadej male pismeno anglicke abecedy.');
  read(c);
 
  {kod zasifrovaneho znaku je o tolik vlevo od 'z' jako je nezasifrovaneho vpravo od 'a'}
  c_sifr := char(KOD_Z - (ord(c) - KOD_A));
 
  {vypiseme vysledek}
  writeln('Zasifrovany znak je ', c_sifr, '.');
end.