Вычислить значение выражения, используя рекурсивный метод - 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.
Объяснение кода листинга программы
- В функции sqn определены две переменные: a и n, оба типа Byte.
- Если значение переменной a меньше или равно значению переменной n, то выполняется рекурсивный вызов функции sqn с аргументами a+1 и n.
- Результат рекурсивного вызова суммируется с квадратом значения переменной a и результатом вызова функции sqn для следующего значения переменной a.
- Если условие в операторе If не выполняется, то значение переменной sqn устанавливается равным нулю.
- В основной части программы вызывается функция sqn с аргументами 1 и 10 (значение переменной n).
- Результат вычисления функции sqn выводится на экран с помощью функции Writeln.