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