Ввести четыре слова. В каждом слове заменить буквы Е на Н. Использовать процедуру замены в строке букв Е на Н - PascalABC.NET

Формулировка задачи:

Ввести четыре слова. В каждом слове заменить буквы Е на Н. Использовать процедуру замены в строке букв Е на Н

Решение задачи: «Ввести четыре слова. В каждом слове заменить буквы Е на Н. Использовать процедуру замены в строке букв Е на Н»

Листинг программы

Procedure ReplaceCh(Var S : String; SrcCh, NewCh : Char);
Begin
  While Pos(SrcCh,S)>0 do S[Pos(SrcCh,S)]:=NewCh;
end;
 
Begin
  Var S : String :='Test string';
  ReplaceCh(S,'t','d');
  Writeln(S);
end.

Объяснение кода листинга программы

Создается процедура замены букв в строке с названием ReplaceCh
В процедуре используются три параметра:
- S - строка, в которой производится замена
- SrcCh - символ, который нужно заменить
- NewCh - символ, на который нужно заменить
В цикле while происходит поиск первого вхождения символа SrcCh в строке S
Если символ найден, то его индекс сохраняется в переменной Pos, а на его место записывается символ NewCh
После выхода из цикла while процедура завершается
В основной части программы создается строка S с текстом Test string
Вызывается процедура ReplaceCh для замены всех символов 't' на 'd' в строке S
Выводится значение переменной S на экран с помощью функции Writeln