Вычислить число π пользуясь рядом Грегори - 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

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