Вычисление числа Пи через ряд Мадхава - VB
Формулировка задачи:
Здравствуйте. Необходимо вычислить число П с помощью ряда Мадахва для 11 членов ряда в Visual Basic для MS Excel. В данном языке ничего не понимаю. После написания кода выяснилось, что результат не соответствует требуемому. Помогите, пожалуйста, исправить код.
Собственно, ряд:
Решение задачи: «Вычисление числа Пи через ряд Мадхава»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim n As Long, k As Double, pi As Double, d As Double k = Sqr(12) Do d = k / (n * 2 + 1) / 3 ^ n pi = pi + d k = -k n = n + 1 Loop While Abs(d) > 0.00000000001 Label1 = "PI = " & pi End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д