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

Для решения данной задачи, можно написать процедуру Zamena, которая будет принимать входную строку Stroka и заменять все малые латинские буквы на следующие по алфавиту с учетом специального случая для буквы "z" (она заменяется на "a").

Вот пример кода на языке Pascal для такой процедуры:

pascalCopy code
procedure Zamena(var Stroka: string);
var
  i: integer;
begin
  for i := 1 to Length(Stroka) do
  begin
    if (Stroka[i] >= 'a') and (Stroka[i] <= 'z') then
    begin
      // Заменяем малую латинскую букву на следующую по алфавиту
      if Stroka[i] = 'z' then
        Stroka[i] := 'a'
      else
        Stroka[i] := Succ(Stroka[i]);
    end;
  end;
end;

Теперь, чтобы использовать эту процедуру, просто вызовите её, передав входную строку, например:

pascalCopy code
var
  inputStr: string;
begin
  inputStr := 'a bc 83xz';
  Zamena(inputStr);
  WriteLn(inputStr); // Выведет: "b cd 83ya"
end.

Обратите внимание, что процедура Zamena изменит входную строку непосредственно внутри процедуры, так как аргумент Stroka передан по ссылке (с помощью var).