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

Question

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

Answer 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 p>=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

Comments

Спасибо, а с версией Паскаля, как вы и говорили, вышла накладка

---

Точно! =)