Заменить в строке все точки на звездочки: ‘.’ – ‘*’ - Free Pascal
Формулировка задачи:
Заменить в строке все точки на звездочки: ‘.’ – ‘*’
Решение задачи: «Заменить в строке все точки на звездочки: ‘.’ – ‘*’»
textual
Листинг программы
- uses sysutils;
- var s : string;
- begin
- readln(s);
- s := StringReplace(s, '.', '*', [rfReplaceAll]);
- writeln(s);
- end.
Объяснение кода листинга программы
- Используется модуль SysUtils для работы с консолью ввода-вывода.
- Объявлена переменная s типа string для хранения строки.
- Ввод строки с помощью функции readln(s).
- Функция StringReplace заменяет все вхождения символа '.' на символ '*'.
- В качестве параметров функции передаются:
- s - строка, в которой нужно произвести замену.
- '.', символ, который нужно заменить.
- '*', символ, на который нужно заменить.
- [rfReplaceAll], флаг, указывающий на замену всех вхождений.
- Результат замены сохраняется в переменной s.
- Вывод строки с помощью функции writeln(s).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
