Шифр Цезаря

[Maserati]

Помогите переделать шифр Цезаря,чтобы можно было вводить и отрицательный ключ.

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

____
не забываем форматировать код программы с помощью тэгов [CODE] (это кнопочка # на панели форматирования)!
Модератор

[VIK_aka_TOR]

справедливо если вводится отрицательное по модулю меньшее чем длинна ключа

writeln('ключ');
readln(d);
d := (d + length(b)) mod length(b);

или так

writeln('ключ');
readln(d);
while d <= 0 do
  d := d + length(b);

а откуда у вас 32? длинна алфавита?

[Niro]

а откуда у вас 32? длинна алфавита?

элементарно VIK_aka_TOR, отсутствует буква Ё

[VIK_aka_TOR]

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

элементарно VIK_aka_TOR, отсутствует буква Ё

и добавлен пробел )

[Maserati]

В первом варианте если вводить отрицательное число,то выдает ошибку.
Во втором варианте если вводить отрицательное число,то программа зацикливается.

[VIK_aka_TOR]

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

В первом варианте если вводить отрицательное число,то выдает ошибку.
Во втором варианте если вводить отрицательное число,то программа зацикливается.

показывай как внесены дополнения
p.s. код помещай между тегами [ CODE ] [ / CODE ] (нажать пиктограмму #)

[Serge_Bliznykov]

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

и добавлен пробел )

Нет там пробела. Это TC код не отформатировал, а движок форума не любит длинные слова...

[VIK_aka_TOR]

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

Нет там пробела. Это TC код не отформатировал, а движок форума не любит длинные слова...

ну только если движок форма)

в таком случае претензии к коду, в одном случае ТС пишет 32, а в другом Length(b) что не комильфо. Атата сделать создателю темы за такое

[Maserati]

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

var a,b,c:string;
i,j,k,d:integer;
begin
writeln('шифр ');
readln(a);
writeln('ключ');
readln(d);
d := (d + length(b)) mod length(b);c:='';
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);
d := (d + length(b)) mod length(b);c:='';
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.

поменяйте строки местами между собой.

d := (d + length(b)) mod length(b);c:='';
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';

Использование b (алфавита) до его инициализации несколько не предусмотрительно. Полагаю аналогичная проблема была и со вторым способом, когда к d прибавляли length(b) = 0, из-за чего d не менялось, отсюда и зацикливание.