Шифр Цезаря

[Maserati]

Выдает ошибку: Ошибка времени выполнения: Индекс находился вне границ массива.

Пробовал так:

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d);
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
d := (d + length(b)) mod length(b);c:='';
for i:=1 to length(a) do
begin
k:=(j+d) mod 32;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.

и так:

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d);
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
while d <= 0 do
  d := d + length(b);
for i:=1 to length(a) do
begin
k:=(j+d) mod 32;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.

[VIK_aka_TOR]

Сообщение от Maserati

Выдает ошибку: Ошибка времени выполнения: Индекс находился вне границ массива.

Пробовал так:

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d);
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
d := (d + length(b)) mod length(b);c:='';
for i:=1 to length(a) do
begin
k:=(j+d) mod 32;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.

и так:

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d);
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
while d <= 0 do
  d := d + length(b);
for i:=1 to length(a) do
begin
k:=(j+d) mod 32;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.

это уже у вас проблемы в этих строках:

k:=(j+d) mod 32; // если j + d  в сумме дает 32 - то k получим = 0
if a[i]=b[j] then 
  c:=c+b[k]; // нумерация символов в string начинается с 1

либо деление по модулю делайте на число на 1 больше чем длинна алфавита, либо к k в итоге прибавляйте единицу после его вычисления

[Maserati]

Попробовал число увеличить все равно не помогло.
к k прибавил 1 тоже не вышло

[VIK_aka_TOR]

Сообщение от Maserati

Попробовал число увеличить все равно не помогло.
к k прибавил 1 тоже не вышло

цикл for j:=1 to length(b) do потеряли

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d); 
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
while d <= 0 do
  d := d + length(b);
for i:=1 to length(a) do
    for j:=1 to length(b) do
    begin
       k:=(j + d - 1) mod 32 + 1; // изменения
       if a[i]=b[j] then c:=c+b[k];
    end;
writeln(c);
end.

[Maserati]

При вводе абв и ключа -1 выдает абв
При вводе абв и ключа -2 выдает яаб
При вводе абв и ключа 1 выдает вгд

Можно это как то исправить?

[VIK_aka_TOR]

Сообщение от Maserati

При вводе абв и ключа -1 выдает абв
При вводе абв и ключа -2 выдает яаб
При вводе абв и ключа 1 выдает вгд

Можно это как то исправить?

бери последний код, там все ок. Проверял

вся магия в этой строчке

k:=(j + d - 1) mod 32 + 1; // изменения

[Maserati]

Заработало,спасибо большое.