Маленькая программа, про удаление символов в тексте. - Pascal

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

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

Дано предложение (любое, введенное с клавиатуры), удалить все символы "О" Заранее спасибо.

Решение задачи: «Маленькая программа, про удаление символов в тексте.»

textual
Листинг программы
for i:=length(s) downto 1 do
if s[i]='O' then delete(s,i,1);

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

В данном коде выполняется следующая последовательность действий:

  1. for i:=length(s) downto 1 do - происходит итерация по символам строки s в обратном порядке, начиная с последнего символа и заканчивая первым.
  2. if s[i]='O' then - проверяется, является ли текущий символ строки s символом 'O'.
  3. delete(s,i,1); - если текущий символ является 'O', то он удаляется из строки s. При этом, в качестве аргументов функции delete используются: сама строка s, значение переменной i и единица, указывающая на то, что нужно удалить один символ.

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

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