Вывести рекуррентную формулу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д