Arithmetic-geometric mean/Calculate Pi: Difference between revisions
Arithmetic-geometric mean/Calculate Pi (view source)
Revision as of 04:00, 22 October 2022
, 1 year ago→{{header|Pascal}}: cosmetic
m (→{{header|Pascal}}: little addition) |
m (→{{header|Pascal}}: cosmetic) |
||
Line 1,132:
tn := 0.25;
while n < Digits do begin
end;
Result := Sqr(an + bn)/(tn * 4);
| |||