Подсчитать сумму ряда с заданной точностью - VB (59611)
Формулировка задачи:
Доброго времени суток!
Ребят, я что-то очень туплю, сижу уже 6 час над этим уравнением :
Пожалуйста, объясните, как мне записать его в Basic?
Или хотя бы объясните дундуку, как записать факториал нечётный с числа 3 и дальше, мне нужно решить это уравнение используя оператор "function" и рода "Do loop"
Нечётный факториал будет вот так? :
Решение задачи: «Подсчитать сумму ряда с заданной точностью»
textual
Листинг программы
Option Explicit
Sub Main()
Const Eps = 0.00001
Dim X As Double, A As Double, S As Double, I As Integer
X = InputBox("Enter X")
I = 0
A = -1
S = 0
Do
I = I + 1
A = -A * (X * X / (2 * I) / (2 * I + 1))
'Debug.Print A
S = S + A
Loop While Abs(A) > Eps
MsgBox "sum {i in 1 to " & I & "} of ... = " & S
End Sub