Напишите рекурсивную функцию, которая вычисляет длину строки - 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.

  1. Если строка пустая, то функция возвращает 0.
  2. Если строка не пустая, то функция удаляет первый символ из строки, вызывая саму себя с новой строкой (s), и возвращает 1 плюс результат вызова функции Len. В основной части программы:
  3. Вводится строка с помощью функции readln.
  4. Вызывается функция Len с введенной строкой в качестве аргумента.
  5. Результат вызова функции Len выводится на экран с помощью функции writeln.
  6. Программа завершается вызовом функции readln.

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

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