15 lines
225 B
Text
15 lines
225 B
Text
digits = 500
|
|
an = 1.0
|
|
bn = sqr(0.5)
|
|
tn = 0.5 ^ 2
|
|
pn = 1.0
|
|
|
|
while pn <= digits
|
|
prevAn = an
|
|
an = (bn + an) / 2
|
|
bn = sqr(bn * prevAn)
|
|
prevAn -= an
|
|
tn -= (pn * prevAn ^ 2)
|
|
pn *= 2
|
|
end while
|
|
print ((an + bn) ^ 2) / (tn * 4)
|