[Pascal]Обработка строк
Добавлено: 05 мар 2007, 22:46
Дана символьная строка.Зашифровать в ней все латинские символы с помощью подстановки A=>b=>c...y=>z=>a
Если я правильно понял, то у тебя A=>b (А равно больше B) т.е = "C"?maxq5 писал(а):Зашифровать все латинские символы с помощью подстановки A=>b=>c...y=>z=>a
Решение: Сдвигаем текст на 2 буквы вправо, предусматриваем защиту от выхода за интервал маленьких и больших латинских букв.
Код: Выделить всё
uses crt])+2); {+2 - это сдвиг на 2 буквы вправо}
if (ord(s2[i])>90) and (ord(s2[i])<97) then s2[i]:=chr(ord(s2[i])-26);
if (ord(s2[i])>122) then s2[i]:=chr(ord(s2[i])-26);
end;
writeln(s2);
readkey;
end.