double 유형은 -1을 반환합니다. 반복적으로 계산할 때 # IND/NaN 오류가 발생했습니다.

Question

MCTS 인증에 문제가 있습니다. 프로그램은 사용자가 키를 누를 때까지 pi를 계산해야하며, 그 시점에서 스레드가 중단되고 그 결과가 주 스레드로 리턴되어 콘솔에 인쇄됩니다. 충분히 간단합니다. 이 실습은 실제로 스레딩에 관한 내용이지만 다른 문제가 있습니다. pi를 계산하는 프로시 저는 -1을 리턴합니다. 이 오류에 대해 web에있는 자료를 읽었지만 여전히 해결 방법을 모르겠습니다. Double을 Decimal 타입으로 바꿀 때 나는 놀랄 정도로 오버 플로우 예외를 매우 빨리 가져옵니다. 그래서, 질문은 정확하게 번호를 저장하는 방법입니까? Decimal에 포함하기에는 너무 커지면 어떻게 든 그 수의 일부를 저장하는 클래스를 만들어야합니까? 그때 나는 실행이 의도 한대로 프로그램 실행을 할 수있을 정도로 충분한 천천히 얻을 루프의 끝에서 (50)에 Thread.sleep를 추가하는 경우

Class PiCalculator 

Dim a As Double = 1 
Dim b As Double = 1/Math.Sqrt(2) 
Dim t As Double = 1/4 
Dim p As Double = 1 
Dim pi As Double 
Dim callback As DelegateResult 

Sub New(ByVal _callback As DelegateResult) 
    callback = _callback 
End Sub 

Sub Calculate() 
    Try 
     Do While True 
      Dim a1 = (a + b)/2 
      Dim b1 = Math.Sqrt(a * b) 
      Dim t1 = t - p * (a - a1)^2 
      Dim p1 = 2 * p 

      a = a1 
      b = b1 
      t = t1 
      p = p1 

      pi = ((a + b)^2)/(4 * t) 
     Loop 
    Catch ex As ThreadAbortException 
    Finally 
     callback(pi) 
    End Try 

End Sub 

End Class 

Answer 1

p 단계 1025