Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
==== 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í ====

<code pascal>

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.

</code>