Program shifr; var s1,s2: string; i,n,k,p: integer; key: integer; //ключ шифрования f1,f2: text; begin assign(f1,'dannie.txt'); assign(f2,'shifr.txt'); reset(f1); rewrite(f2); writeln('введите ключ шифрования от 1 до 33: '); readln(key); while not(eof(f1)) do begin readln(f1,s1); s2: =''; for i: =1 to length(s1) do s2: =s2+chr(ord(s1[i])+key); writeln(f2,s2); end; close(f1); close(f2); end. создать программы шифрации и дешифрации для следующего цикличного модифицированного алгоритма цезаря: ключ шифрования 1 цифра от 1 до 26, эта цифра определяет сдвиг 1 симовла шифруемого текста в сторону увеличения, 2 символа шифруемого текста в сторону уменшения, 3 символа снова в сторону увеличения и т. д. при этом если мы сдвигаем в сторону увеличения последние буквы алфавита, то они циклически преобразуются в первые, напрмер 'z' сдвигаемая на 2 позиции вправо превратится в 'b'. если сдвиг идет в сторону уменшения, то наоборот первые симолы алфавита, преобразуются в посление, например, 'a' сдвигаемая в сторону уменьшения на 2 позиции, преобразуется в 'y'. примечание. для шифруемого текста в этой проще использовать только симолы латинского алфавита.
203
417
Ответы на вопрос:
Program shifr; var s1,s2,alf: string; i: integer; key, kod: integer; //ключ шифрования f1,f2: text; begin alf: ='abcdefghijklmnopqrstuvwxyz'; assign(f1,'dannie.txt'); assign(f2,'shifr.txt'); reset(f1); rewrite(f2); writeln('введите ключ шифрования от 1 до 25: '); readln(key); while not(eof(f1)) do begin readln(f1,s1); s2: =''; for i: =1 to length(s1) do begin kod: =pos(s1[i],s1); kod: =kod+key; if kod> 26 then kod: =kod-26; if kod< 1 then kod: =kod+26; s2: =s2+alf[kod]; key: =-key; end; writeln(f2,s2); end; close(f1); close(f2); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
pol42227.01.2021 01:16
-
Nuraika77727.02.2021 11:29
-
vitcke106.06.2020 21:55
-
ane4ka25800030.12.2021 01:47
-
anuar040327.10.2020 16:44
-
Ania0711.11.2022 10:10
-
kono10021607.04.2021 01:49
-
Blanco201719.03.2022 23:50
-
MrHleb23.06.2021 07:48
-
sanya81114.03.2021 16:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.