Вычислить число π пользуясь рядом Грегори - VBA

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

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

Как вычислить п такого ряда. п/4=1-1/3+1/5-1/7±... 100 членов

Решение задачи: «Вычислить число π пользуясь рядом Грегори»

textual
Листинг программы
Sub www()
    Dim p4 As Double, i As Long, a As Long, b As Long
    a = 1
    b = 1
    For i = 1 To 100
        p4 = p4 + a / b
        a = -a
        b = b + 2
    Next i
    MsgBox p4 * 4
End Sub

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

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