Преобразовать строку, заменив в ней каждую из групп стоящих рядом точек одной точкой - Free Pascal
Формулировка задачи:
Дана строка символов. Преобразовать ее, заменив в ней каждую из групп стоящих рядом точек одной точкой.
Решение задачи: «Преобразовать строку, заменив в ней каждую из групп стоящих рядом точек одной точкой»
textual
Листинг программы
While Pos('..',S)>0 do Delete(S,Pos('..',S),1);
Объяснение кода листинга программы
В данном коде используется цикл while, который выполняется до тех пор, пока не будет найдено следующее сочетание двух точек подряд. В каждой итерации цикла происходит следующее:
Pos('..',S)- функция Pos() используется для поиска позиции первого символа в строке S, который является '.' (точка).Delete(S,Pos('..',S),1)- функция Delete() используется для удаления подстроки в строке S, начиная с позиции, найденной в предыдущем шаге, и заканчивая следующим символом (в данном случае, вторым '.' или точкой). Таким образом, в каждой итерации цикла заменяется одна группа стоящих рядом точек на одну точку.