Arithmetic-geometric mean/Calculate Pi: Difference between revisions
Content added Content deleted
m (→{{header|Pascal}}: little addition) |
m (→{{header|Pascal}}: cosmetic) |
||
Line 1,132: | Line 1,132: | ||
tn := 0.25; |
tn := 0.25; |
||
while n < Digits do begin |
while n < Digits do begin |
||
a0 := an; |
|||
b0 := bn; |
|||
an := (a0 + b0)/2; |
|||
bn := Sqrt(a0 * b0); |
|||
tn := tn - Sqr(an - a0) * n; |
|||
n := n + n; |
|||
end; |
end; |
||
Result := Sqr(an + bn)/(tn * 4); |
Result := Sqr(an + bn)/(tn * 4); |