Question

Паскаль шифр цезаря почему при дешифровке в слове с буквой "в" в результате выдаёт восклицательный знак то есть не может его дешифровать? 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 k> 33 then k: =k-33; if k< 0 then k: =k+33; if a[i]=b[j] then c: =c+b[k]; end; writeln(c); readkey; end.

Answer 1

Ну во-первых должно быть примерно так
for i:=1 to length(a) do //цикл
for j:=1 to length(b) do
if a[i]=b[j] then
begin
If g=1 then k:=(j+d) mod 33 else k:=(33+j-d)mod 33;
c:=c+b[k];
end;

и во-вторых, второй цикл не нужен, там надо выяснять 
значение j поиском a[i] в b, тогда и условия с a[i]=b[j] не надо