Создание шифратора и дешифратора - Pascal ABC

Формулировка задачи:

Здравствуйте, у меня такая идея, но я не могу воплотить ее. Что если сделать что то типа шифратора и дешифратора, допустим: Вы пишете "Привет" а программа заменяет каждый символ переменной на другой, например "П" на английскую "U", и так все русские буквы на определенные английские. Дешифратор работает также только наоборот. Вы отправляете другу зашифрованное письмо, он копирует строку в дешифратор и получает нормальный, русский текст.

Код к задаче: «Создание шифратора и дешифратора - Pascal ABC»

textual
Const
  y = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  z = 'щбгфпзсэйхкялширыцжчвнтомдъьеаюуё';
 
Function Code(s : String) : String;
Var i : Byte;
Begin
  For i:=1 to Length(s) do
    If Pos(s[i],y)>0 then s[i]:=z[Pos(s[i],y)];
  Code:=s;
end;
 
Function DeCode(s : String) : String;
Var i : Byte;
Begin
  For i:=1 to Length(s) do
    If Pos(s[i],z)>0 then s[i]:=y[Pos(s[i],z)];
  Decode:=s;
end;
 
Begin
  Writeln(Code('за окном шёл дождь и рота красноармейцев'));
  Writeln(DeCode(Code('за окном шёл дождь и рота красноармейцев')));
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.600 из 5


СДЕЛАЙТЕ РЕПОСТ