Дана строка-предложение на русском языке. Зашифровать ее, выполнив циклическую замену каждой буквы на следующую за ней в алфавите и сохранив при этом регистр букв

Категория: Delphi/Pascal
2013-04-07 18:37:23

«А» перейдет в «Б», «а» — в «б», «Б» — в «В», «я» — в «а» и т. д.. Букву «ё» в алфавите не учитывать («е» должна переходить в «ж»). Знаки препинания и пробелы не изменять.

code: #pascal
Program String62;
 
Var 
  s : String;
  i : Byte;
Begin
  Write('Введите предложение на русском языке:');
  ReadLn(s);
  For i := 1 To Length(s) Do
    If s[i] = 'Ё' Then 
      s[i] := 'Е'
    Else 
      If s[i] = 'ё' Then s[i] := 'е';
 
  For i := 1 To Length(s) Do
    If s[i] In ['А'..'Ю'] Then 
      s[i] := Chr(Ord(s[i]) + 1)
    Else 
      If s[i] = 'Я' Then 
        s[i] := 'А'
      Else 
        If s[i] In ['а'..'ю'] Then 
          s[i] := Chr(Ord(s[i]) + 1)
        Else 
          If s[i] = 'я' Then 
            s[i] := 'а';
  WriteLn('Зашифрованная строка:', s);
  ReadLn;
End.
Поделиться:

Похожие статьи:

теги: строка, предложение, алфавит. замена