Вычисление числа Пи через ряд Мадхава - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы