Question

Дана строка заменить все вхождения "по" на "под". Написать программу на Паскале.

Answer 1

Var s:string;i:integer;
begin
i:=1;
read(s);
while i<length(s) do
begin
if (s[i]='п') and (s[i+1]='о') then s:=copy(s,1,i+1)+'д'+copy(s,i+2,length(s)-i-1);
i:=i+1
end;
write(s)
end.

Answer 2

Замена всех вхождений "по" на "под" в строке на Паскале

Вот пример программы на Паскале, которая заменяет все вхождения подстроки "по" на "под" в заданной строке:

program ReplaceString;

uses
  SysUtils;

function ReplaceAllOccurrences(const str, find, replace: string): string;
var
  startIndex: Integer;
begin
  Result := str;
  startIndex := Pos(find, Result);
  while startIndex > 0 do
  begin
    Delete(Result, startIndex, Length(find));
    Insert(replace, Result, startIndex);
    startIndex := Pos(find, Result);
  end;
end;

var
  inputString, replacedString: string;
begin
  // Ввод строки
  Write('Введите строку: ');
  Readln(inputString);

// Замена вхождений
  replacedString := ReplaceAllOccurrences(inputString, 'по', 'под');

// Вывод результата
  Writeln('Результат замены: ', replacedString);
end.

Программа сначала запрашивает у пользователя ввод строки. Затем она вызывает функцию `ReplaceAllOccurrences`, которая заменяет все вхождения подстроки "по" на "под" в заданной строке. Функция использует цикл `while` и функции `Pos`, `Delete` и `Insert` для замены всех вхождений. Наконец, программа выводит результат замены.

Примечание: В данном примере используется функция `ReplaceAllOccurrences`, которая реализована внутри программы. Это не встроенная функция Паскаля. Если вы используете другую среду разработки или компилятор Паскаля, убедитесь, что у вас есть аналогичная функция или реализуйте ее самостоятельно.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.