Создать функцию, отбpасывающую начальные и конечные пpобелы в введенной стpоке - Free Pascal
Формулировка задачи:
Создать функцию, отбpасывающую начальные и конечные пpобелы в введенной стpоке.
Решение задачи: «Создать функцию, отбpасывающую начальные и конечные пpобелы в введенной стpоке»
textual
Листинг программы
- function trim(s:string):string;
- begin
- while s[1]=' ' do delete(s,1,1);
- while s[length(s)]=' ' do delete(s,length(s),1);
- trim:=s;
- end;
Объяснение кода листинга программы
- Входная переменная s типа string.
- Первая итерация цикла while:
- Проверка условия: s[1]=' '.
- Если условие истинно, то происходит удаление первого пробела из строки s с помощью функции delete(s,1,1).
- Вторая итерация цикла while:
- Проверка условия: s[length(s)]=' '.
- Если условие истинно, то происходит удаление последнего пробела из строки s с помощью функции delete(s,length(s),1).
- Результат работы функции trim сохраняется в переменной s.
- Выход из функции trim с возвратом результата в виде строки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
