Вот шифр цезаря на паскале но в чем заключаеться вопрос, в том что если в слове есть буква близкая к концу алфавита например я то прибавляя ключ (например 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.
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];