Вычислить число π пользуясь рядом Грегори - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
