Тестирование.

Введите строку из слов, разделенных пробелами

Running "c:\program files (x86)\free pascal\bin\i386-win32\амв.exe "

вышел ежик из тумана

ежик из

Задание 4.

Составьте программу шифрования текстового сообщения. Можно использовать простейший способ шифрования, при котором шифровальщик задает ключ шифровки — целое число, определяющее величину смещения букв русского алфавита. Например, при значении ключа равном 3, в тексте буква а меняется на г и т.д. Составьте программу дешифрования текстового сообщения, зашифрованного вашей программой.

Текст программы.

var

Str: String;

Key, i: Byte;

Ch: Char;

begin

writeln('1. Расшифровать; ');

writeln('2. Зашифровать; ');

repeat

write('Выберите действие: ');

readln(Ch);

until (Ch = '1') or (Ch = '2');

case Ch of

'1': begin

writeln('Введите зашифрованную строку: ');

readln(Str);

writeln('Введите ключ расшифровки: ');

readln(Key);

for i:=1 to Length(Str) do

Str[i]:=Chr(Ord(Str[i])-Key);

writeln('Расшифрованная строка: ');

writeln(Str);

end;

'2': begin

writeln('Введите строку: ');

readln(Str);

writeln('Введите ключ шифровки: ');

readln(Key);

for i:=1 to Length(Str) do

Str[i]:=Chr(Ord(Str[i])+Key);

writeln('Зашифрованная строка: ');

writeln(Str);

end;

end;

readln;

end.

	1 1						1
Конец	1						1 1