19 lines
347 B
Text
19 lines
347 B
Text
Dim As Short digits = 500
|
|
Dim As Double an = 1
|
|
Dim As Double bn = Sqr(0.5)
|
|
Dim As Double tn = 0.5^2
|
|
Dim As Double pn = 1
|
|
Dim As Double prevAn
|
|
|
|
While pn <= digits
|
|
prevAn = an
|
|
an = (bn + an) / 2
|
|
bn = Sqr(bn * prevAn)
|
|
prevAn -= an
|
|
tn -= (pn * prevAn^2)
|
|
pn *= 2
|
|
Wend
|
|
Dim As Double pi = ((an + bn)^2) / (tn * 4)
|
|
Print pi
|
|
|
|
Sleep
|