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

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

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

Код к задаче: «Вычислить число π пользуясь рядом Грегори - VBA»

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


СОХРАНИТЬ ССЫЛКУ