Вывести рекуррентную формулу - VB

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

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

сумма следующая: x+((x^3)/3!)+((x^5)/5!)+...+((x^(2n+1))/(2n+1)!)+... нудно написать процедуру, которая считает эту рекурсию, и втьорую процедуру, которая запрашивает ввод данных, а потом вызывает процедуру подсчёта и вывод результата. спасибо!
есть готовая рекурсия, которая считает число Фибоначчи. Можно в неё подставить выражения из задания? Private Function Fib(N As Integer) As Double Dim Fib_i_minus_1 As Double Dim Fib_i_minus_2 As Double Dim fib_i As Double Dim i As Integer If N <= 1 Then Fib = N Else Fib_i_minus_2 = 0 ' Вначале Fib(0) Fib_i_minus_1 = 1 ' Вначале Fib(1) For i = 2 To N fib_i = Fib_i_minus_1 + Fib_i_minus_2 Fib_i_minus_2 = Fib_i_minus_1 Fib_i_minus_1 = fib_i Next i Fib = fib_i End If End Function

Решение задачи: «Вывести рекуррентную формулу»

textual
Листинг программы
Function Sum(n As Integer, x As Double, Optional k As Integer = 0, Optional a As Double = 0, Optional s As Double = 0) As Double
    If k = 0 Then
       Sum = Sum(n, x, 1, x, 0)
    ElseIf k > n Then
       Sum = s
    Else
       Sum = Sum(n, x, k + 1, a * x * x / (2 * k * (2 * k + 1)), s + a)
    End If
End Function
 
Sub Test()
 
    Debug.Print Sum(10, 0.1)
 
End Sub

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

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