Вычислить значение выражения, используя рекурсивный метод - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вычислить значение выражения, используя рекурсивный метод:

Решение задачи: «Вычислить значение выражения, используя рекурсивный метод»

textual
Листинг программы
Function sqn(a,n : Byte) : Real;
Begin
  If a<=n then sqn:=sqrt(sqr(a)+sqn(a+1,n)) else sqn:=0;
end;
 
Begin
  Writeln(sqn(1,10));
end.

Объяснение кода листинга программы

  1. В функции sqn определены две переменные: a и n, оба типа Byte.
  2. Если значение переменной a меньше или равно значению переменной n, то выполняется рекурсивный вызов функции sqn с аргументами a+1 и n.
  3. Результат рекурсивного вызова суммируется с квадратом значения переменной a и результатом вызова функции sqn для следующего значения переменной a.
  4. Если условие в операторе If не выполняется, то значение переменной sqn устанавливается равным нулю.
  5. В основной части программы вызывается функция sqn с аргументами 1 и 10 (значение переменной n).
  6. Результат вычисления функции sqn выводится на экран с помощью функции Writeln.

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

8   голосов , оценка 3.375 из 5