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