Как найти пробел в строке и удвоить его? - Free Pascal

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

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

Как найти пробел в строке и удвоить его?

Решение задачи: «Как найти пробел в строке и удвоить его?»

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

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

В данном коде на языке Free Pascal реализуется функция, которая ищет пробелы в строке и удваивает их. Вот список действий, которые происходят в коде:

  1. for i:=Length(s) downto 1 do - это цикл, который идет от последнего символа строки s к первому.
  2. if s[i]=' ' then - проверяется, является ли текущий символ пробелом.
  3. Insert(' ',s,i) - если текущий символ является пробелом, то в строку s вставляется еще один пробел перед текущим символом. В итоге, после выполнения данного кода, в строке s все пробелы будут удвоены.

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

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