Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001: - VB

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

Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001: Если кто может помогите пожалуйста.

Решение задачи: «Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001:»

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

                            Sub zzz()
crit = (Atn(1) * 4) ^ 2 / 6
Do
  s = s + 1 / ((n + 1) * (n + 3))
  n = n + 1
  crit = crit - 1 / (n * n)
Loop While crit > 0.0001
MsgBox s
End Sub
                        

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

13 голосов , оценка 4 из 5

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