Напишите рекурсивную функцию, которая вычисляет длину строки - Pascal
Формулировка задачи:
пожалуйста помогите написать программку к двум задаче
в паскале
Напишите рекурсивную функцию, которая вычисляет длину строки
Решение задачи: «Напишите рекурсивную функцию, которая вычисляет длину строки»
textual
Листинг программы
Function Len(s: string): byte; Begin If S = '' Then Len := 0 Else Begin Delete(s, 1, 1); Len := 1 + Len(s) End End; var s:string; begin readln(s); writeln(Len(s)); readln; end.
Объяснение кода листинга программы
В данном коде реализована рекурсивная функция Len, которая вычисляет длину строки s.
- Если строка пустая, то функция возвращает 0.
- Если строка не пустая, то функция удаляет первый символ из строки, вызывая саму себя с новой строкой (s), и возвращает 1 плюс результат вызова функции Len. В основной части программы:
- Вводится строка с помощью функции readln.
- Вызывается функция Len с введенной строкой в качестве аргумента.
- Результат вызова функции Len выводится на экран с помощью функции writeln.
- Программа завершается вызовом функции readln.