Обработка строковых величин - Pascal ABC
Формулировка задачи:
Отчислить текст, уничтожая в нем лишние промежутки, оставляя только по одному промежутке между словами.
Решение задачи: «Обработка строковых величин»
textual
Листинг программы
whille pos(' ',s)>0 do delete(s,pos(' ',s),1);//в апострофах по 2 пробела
Объяснение кода листинга программы
while pos(' ',s)>0 do
- цикл while, который будет выполняться до тех пор, пока позиция пробела в строкеs
больше 0. Функцияpos
возвращает позицию первого вхождения указанной подстроки в строке.delete(s,pos(' ',s),1);
- удаляет все вхождения подстрокиs
, начиная с позиции, указанной функциейpos
.1
указывает, что нужно удалить только первое вхождение.s
- переменная, которая содержит исходную строку.pos(' ',s)
- функция, которая возвращает позицию первого вхождения подстрокиs
.