Найти сумму членов ряда с заданной точностью - VB

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

Ув. гуру! Помогите пожалуйста! Задание: Найти Сумму членов ряда с точностью до 1E-4 Не правильный ответ, написал программу:

Private Sub Command1_Click()
Dim factorial As Integer
Dim gamma As Single
Dim A As Byte
Dim b As Integer
b=1
factorial = 1
gamma = 0.0001
A = 1
Do Until (1 / factorial) < gamma
factorial = factorial * (factorial + 1) 
A = A + 1
b = (-1) ^ A 
Otvet = 1 + ((1 / factorial) * b)
Loop
Print Otvet

Решение задачи: «Найти сумму членов ряда с заданной точностью»

textual
                            Листинг программы 
                        

                            Dim a, Otvet
Dim gamma As Single
Dim i
a = 1: i = 1: Otvet = 0
gamma = 0.0001
 
Do
a = a / i
Otvet = Otvet + ((-1) ^ (i - 1)) * a
i = i + 1
Loop Until (a) < gamma
Print Otvet
                        

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

14 голосов , оценка 4.143 из 5

Похожие ответы