В заданном тексте утроить все буквы Б - Free Pascal
Формулировка задачи:
В заданном тексте утроить все буквы Б(например, из слова
боль
должно получитьсяббболь
)Решение задачи: «В заданном тексте утроить все буквы Б»
textual
Листинг программы
for i:=length(s) downto 1 do
if s[i]='б' then insert('бб',s,i+1)
else if s[i]='Б' then insert('ББ',s,i+1);
Объяснение кода листинга программы
В данном коде происходит следующее:
- Переменная
sсодержит в себе исходный текст. - Происходит двойная проверка на символ 'б' или 'Б' с помощью цикла
forи условного оператораif. - Если в тексте присутствует символ 'б', то в переменную
sвставляется тройной символ 'б' с помощью функцииinsert. - Если в тексте присутствует символ 'Б', то в переменную
sвставляется тройной символ 'Б' с помощью функцииinsert. Список изменений в коде: - Вставка тройного символа 'б' в переменную
s, если в тексте присутствует символ 'б'. - Вставка тройного символа 'Б' в переменную
s, если в тексте присутствует символ 'Б'.