Подсчитать сумму ряда с заданной точностью - VB (59611)
Формулировка задачи:
Доброго времени суток!
Ребят, я что-то очень туплю, сижу уже 6 час над этим уравнением :
Пожалуйста, объясните, как мне записать его в Basic?
Или хотя бы объясните дундуку, как записать факториал нечётный с числа 3 и дальше, мне нужно решить это уравнение используя оператор "function" и рода "Do loop"
Нечётный факториал будет вот так? :
Листинг программы
- F = 3
- For i = 1 To (Что здесь написать для бесконечности..?) Step 2
- F = F * i
Решение задачи: «Подсчитать сумму ряда с заданной точностью»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
