Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
servo
Зашифровать текст по алгоритму: каждая буква являющееся i-й по алфавиту заменяется на (i+2)-ю букву, предпоследняя буква по алфавиту заменяется первой и т.д.У меня заменяет но не на (i+2)
Код

Program A1;
var i,j:Integer;
    st1,st2:string;
Begin
      st2:='abcdefghijklmnopqrstuvwxyz';
      readln(st1);
      For i:=1 to length(st1) do begin
        for j:=1 to length(st1)  do  begin
         if st1[i]=st2[j] then st1[i]:=st2[j+2];

        end;

      end;
      writeln(st1);
      readln
end.
klem4
uses crt;

var

s : string;
i : byte;

begin

clrscr;

s := 'abcdefghijklmnopqrstuvwxyz';

for i := 1 to length(s) do
case s[i] of
'a'..'x' : s[i] := chr(ord(s[i])+2);
'y' : s[i] := 'a';
'z' : s[i] := 'b';
end;
writeln(s);
readln;
end.

APAL
Для русского текста такое не пройдет.
volvo
APAL,
немного ловкости рук, и для русского еще и не такое пройдет smile.gif
APAL
Цитата(volvo @ 20.02.2006 22:26) *

APAL,
немного ловкости рук, и для русского еще и не такое пройдет smile.gif

Это конечно, но в условии не сказано для какого алфавита нужно делать, соответственно можно считать, что klem сразу сделал правильно. rolleyes.gif

Предидущий мой пост был ремаркой для автора, чтобы он потом не ругался, что у него что-то не работет...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.