Рекурсия, вычисляющая среднее геометрическое - VB
Формулировка задачи:
Составить рекурсивную функцию, вычисляющую среднее геометрическое n элементов одномерного массива.
Решение задачи: «Рекурсия, вычисляющая среднее геометрическое»
textual
Листинг программы
Function avgG(A() As Double, Optional p As Integer = 1, Optional Z As Double = 1) As Double If p > UBound(A, 1) Then avgG = Z ^ (1 / CDbl(p - 1)) Else avgG = avgG(A, p + 1, Z * A(p)) End If End Function