Заменить в строке все точки на звездочки: ‘.’ – ‘*’ - Free Pascal

Узнай цену своей работы

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

Заменить в строке все точки на звездочки: ‘.’ – ‘*’

Решение задачи: «Заменить в строке все точки на звездочки: ‘.’ – ‘*’»

textual
Листинг программы
uses sysutils;
var s : string;
begin
  readln(s);
  s := StringReplace(s, '.', '*', [rfReplaceAll]);
  writeln(s);
end.

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

  1. Используется модуль SysUtils для работы с консолью ввода-вывода.
  2. Объявлена переменная s типа string для хранения строки.
  3. Ввод строки с помощью функции readln(s).
  4. Функция StringReplace заменяет все вхождения символа '.' на символ '*'.
  5. В качестве параметров функции передаются:
    • s - строка, в которой нужно произвести замену.
    • '.', символ, который нужно заменить.
    • '*', символ, на который нужно заменить.
    • [rfReplaceAll], флаг, указывающий на замену всех вхождений.
  6. Результат замены сохраняется в переменной s.
  7. Вывод строки с помощью функции writeln(s).

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы