Шифр цезаря на паскале , почему не выдает при дешифрации букву в с ключом 3 и 5 и дальше! что исправить? program shifr_cezerya; 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=1 then k: =(j+d) mod 33 else k: =(j-d)mod 33; if a[i]=b[j] then c: =c+b[k]; if k> 33 then k: =k-33 else k: =k+33; end; writeln(c); readkey; end.
122
284
Ответы на вопрос:
1. на кой такие сложности не ясно. коды символов идут по порядку на сколько я помню, 2. отладка в этом случае должна . вводи алфавит и смотри результат, должен быть сдвиг на ключ.
Популярно: Информатика
-
Viktoria128915.06.2022 08:10
-
04789705.10.2021 07:27
-
Victoria0NK10.01.2023 18:45
-
keril93612.10.2022 20:22
-
maremboga817.04.2023 00:24
-
Salsa1305.02.2021 05:33
-
Stepanych201702.05.2023 20:00
-
Дарига6513.12.2021 05:12
-
ololosha1407.04.2022 02:46
-
dimaarmytrac9517.11.2020 19:55