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