Вычисление числа Пи через ряд Мадхава - VB

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

Здравствуйте. Необходимо вычислить число П с помощью ряда Мадахва для 11 членов ряда в Visual Basic для MS Excel. В данном языке ничего не понимаю. После написания кода выяснилось, что результат не соответствует требуемому. Помогите, пожалуйста, исправить код. Собственно, ряд:

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim x, y As Integer
Dim pi As Double
y = 1
pi = 0
For x = 1 To 11
y = y + 2
If x Mod 2 = 0 Or x = 1 Then pi = pi + 1 / (y * (3 ^ x)) Else pi = pi - 1 / (y * (3 ^ x))
Next x
pi = Sqr(12) * (1 - pi)
Label1 = "PI = " & pi
End Sub

Решение задачи: «Вычисление числа Пи через ряд Мадхава»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы