Вычисление числа Пи методом Мадхава для ряда 11 чисел по формуле - VB

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

Не работает мой код,помогите..

Код к задаче: «Вычисление числа Пи методом Мадхава для ряда 11 чисел по формуле - VB»

textual
Function Pi(n) As Double
Dim t#, y&  'у=1,3,5...
  t = 1     't-степени числа -3
  Pi = 1
  For y = 3 To n * 2 Step 2
    t = t * -3
    Pi = Pi + 1 / t / y
  Next
  Pi = Pi * Sqr(12)
End Function

9   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ