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

Answer 2

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

Answer 3

Но ведь это проблема, которую Вы сами себе устроили, не так ли?

Answer 4

Точно! =)