ана строчка содержащая любые знаки не считая русских букв.Написать функцию, которая поменяет

Ана строчка содержащая любые знаки не считая российских букв.
Написать функцию, которая заменит все малые латинские буквы на следующие по алфавиту. а "z" поменяй на "a".
К примеру из строки: "a bc 83xz" получим: "b cd 83ya"
Использовать заголовок:
procedure Zamena(var Stroka: string);

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программка не работает, обновите версию!

procedure Zamena(var Stroka:string);
begin
  var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;
  var n:=cin.Length;
  var cout:=cin[1:n]+cin[:1];
  for var i:=1 to Stroka.Length do begin
    var p:=cin.IndexOf(Stroka[i]);
    if pgt;=0 then Stroka[i]:=cout[p]
    end
end;

begin
  var aa:='a bc 83xz';
  aa.Println;
  Zamena(aa);
  aa.Println
end.

Пример
a bc 83xz
b cd 83ya
Светлана Саргаева
Спасибо, а с версией Паскаля, как вы и разговаривали, вышла накладка
Юрка
Точно! =)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт