Язык программирования Pascal. Строки и записи. Васильев В.В - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

8
if copy(a[i],j,1)=' ' then f:=f+1;
inc(j)
until f=2;
writeln(s); delete(a[i],1,length(s));
end;
{Вывод отчеств в алфавитном порядке}
for i:=n downto 1 do
begin
max:=a[1]; p:=1;
for j:=2 to i do
begin
if max<a[j]
then begin max:=a[j]; p:=j end;
end;
a[p]:=a[i]; a[i]:=max
end;
for i:=1 to n do writeln(a[i]); readkey
End.{Stroki}
Рассмотрим две задачи , связанные с шифрованием текстов. Программа -
шифровальщик с уникальным алгоритмом, написанная Вами, может оказаться
более полезной , нежели стандартная программа–шифровальщик. Собственные
программы , шифрующие тексты , можно использовать , например, для защиты
информации при обмене электронными письмами через Интернет.
Задача 4. Шифр Цезаря . Зашифровать русский текст кодом Цезаря. Суть
шифра Цезаря заключается в замене i-й буквы алфавита на i+s-ю . То есть каж -
дая буква текста заменяется на букву, полученную при циклическом скачке
вправо на s позиций по алфавиту. Например, если s=2, то вместо слова
КОМПЬЮТЕР получится МРОСЭАФТ. Знаки препинания и другие символы шиф -
ровать не требуется.
♣ Текст будем читать посимвольно в переменную а , пока не будет нажата
клавиша Enter. Функция eoln (конец строки ) возвращает значение true, когда
встречается в тексте переход на другую строку. Русские заглавные буквы будем
шифровать , остальные символы менять не будем. Мы рассматриваем заглавные
буквы по той причине, что их коды в памяти располагаются последовательно
(от 128 до 159). Заметим, что указанные коды представляют 32 буквы (отсут -
ствует код буквы ё).
Код Цезаря со скачком s можно применить к русской заглавной букве сле-
дующим образом. К коду буквы ‘A ’ прибавим остаток от целочисленного деле-
ния на 32 суммы скачка s и разности кодов букв a и ‘A ’ . Разность кодов букв a и
‘A ’ показывает, на сколько позиций (букв ) отстоит введенный символ а от пер-
вой русской заглавной буквы . Сумма скачка s и разности кодов букв a и ‘A ’ оп -
ределяет, на сколько позиций отстоит код введенной буквы а от первой русской
заглавной буквы . Добавление к коду буквы ‘A ’ остатка от целочисленного деле-
ния на 32 полученной суммы не позволяет выйти из диапазона кодов русских

Страницы