сумка228hjfjkjihjjj
29.01.2023 20:58

Вот шифр цезаря на паскале но в чем заключаеться вопрос, в том что если в слове есть буква близкая к концу алфавита например я то прибавляя ключ (например 3) он не может перескочить к началу алфавита! ! program z1; uses crt; var a,b,c: string; i,j,k,d,g: integer; begin clrscr; writeln('шифрование? 1-да, 0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; b: =''; for i: =1 to length(a) do for j: =1 to length(b) do begin if g=0 then k: =(j-d) mod 32 else k: =(j+d); if a[i]=b[j] then c: =c+b[k]; end; writeln(c); readkey; end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ilyasovazalina
25.06.2020 08:25
Я думаю, что в процедуре шифрования надо добавить проверку, типа такой
If g=0 then k:=(j-d) mod 32 else k:=(j+d);
If k > 32 then k := k-32;
if a[i]=b[j] then c:=c+b[k];
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота