КОНЧИЛ ДЕЛО, ГУЛЯЙ СМЕЛО

была бы зашифрована следующим образом:

МРПЩКН ЁЖНР ЕХНБЛ УОЖНР

Составим программу зашифровки русского текста кодом Цезаря.

Program Shifr;
 const n=32; {число букв в алфавите}
 var x:char;
begin
 while not eof do
 begin
 read(x);
 if x in ['А'..'Я'] then
 write (chr((ord(x)-ord('А')+2) mod n+ord('А')))
 else write(x);
 if eoln then writeln
 end
end.
Последний оператор включен в цикл для того, чтобы программа распологала шифрованным текстом в таких же строках, что и исходный текст.
Эта программа подходит для шифровки текста только на тех языках, алфавит которых совпадает с алфавитом ЭВМ, выполняющей программу.


2012-06-24 • Просмотров [ 10877 ]