Дана числовая последовательность. Подсчитать сумму с точностью 0,000001 - VB

Узнай цену своей работы

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

Дана числовая последовательность .Подсчитать сумму с точностью 0,000001

Решение задачи: «Дана числовая последовательность. Подсчитать сумму с точностью 0,000001»

textual
Листинг программы
Private Sub Command1_Click()
    Dim n As Long, x As Double, sum As Double, e As Double
    e = 0.000001
    n = 1
    Do
        x = 1 / (n * (n + 3))
        sum = sum + x
        n = n + 1
    Loop Until Abs(x) <= e
    MsgBox sum
End Sub

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

10   голосов , оценка 4.2 из 5
Похожие ответы