Помогите решить задачку на Паскале, про Шрифт Цезаря Опции

[SpikyGirl]

Короче нужна задача на Паскале про Шрифт Цезаря. Нужно чтобы задавался пятизначный ключ и вводился текст, который будет шифроваться. Например, надо зашифровать "ПРИВЕТ" и ключ 12345. Первая буква сдвигается на первое число ключа тоесть на 1 вместо П теперь Р, вторая буква сдвигается на второе число ключа, на 2 - вместо Р теперь [color=#CC33CC]Т и т. д.

[Tan]

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

uses crt;
var      s,buf,key : string[5];
                      i  : byte;
            X ,code  : integer;
                     k  : char;
begin
readln (s);
readln (key);
for i:=1 to 5 do
 begin
  k:=key[i];
  buf[i]:=s[i];
  val (k,X,CODE);
  s[i]:=chr (ord(buf[i]) + x);
 end;
writeln (s);
readkey;
end.

Сообщение отредактировано: Tan - 5.04.2007 20:25