Pascal ABC . Дана строка-предложение на русском языке. Зашифровать ее...

Question

Дополнительные задания на обработку
строк

Pascal ABC. Дана строка-предложение на русском языке. Зашифровать ее, выполнив
циклическую замену каждой буквы на следующую за ней в алфавите и сохранив при
этом регистр букв («А» перейдет в «Б» , «а» — в «б» , «Б» — в «В» , «я» — в «а» и
т. д.) . Букву «ё» в алфавите не учитывать («е» должна переходить в «ж») . Знаки
препинания и пробелы не изменять.

Юлия · Accepted Answer

В предложении могут быть буквы и любые другие символы, поэтому сначала проверяем, буква это или нет. Затем получаем код этой буквы через функцию оrd и увеличиваем его на 1 - получаем новый код. Потом проверяем на цикличность, т. е. не вылетел ли код за алфавит (в данной задаче - для букв "Я" и "я") , и если вылетели, то возвращаемся на начало алфавита, отняв от кода число букв в алфавите (по условию - 32).

Вот так получается:

var i,nc,sc:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['А'..'Я','а'..'я'] then
begin
sc:=ord(s[i]);
nc:=sc+1;
if (s[i] in ['А'..'Я']) and (nc>ord('Я')) or
(s[i] in ['а'..'я']) and (nc>ord('я')) then
nc:=nc-32;
s[i]:=chr(nc);
end;
writeln(s);
end.

Успехов!

Вот так получается:

var i,nc,sc:integer;
 s:string;
begin
 readln(s);
 for i:=1 to length(s) do 
 if s[i] in ['А'..'Я','а'..'я'] then 
 begin
 sc:=ord(s[i]);
 nc:=sc+1;
 if (s[i] in ['А'..'Я']) and (nc>ord('Я')) or 
 (s[i] in ['а'..'я']) and (nc>ord('я')) then 
 nc:=nc-32;
 s[i]:=chr(nc);
 end;
 writeln(s);
end.

Успехов!