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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.125 из 5

Источник