有人尝试过手动计算圆周率pi吗？

骰迷

写过一个pascal程式,
出来3.141592653593539,
有11位精度,误差约0.0000000001%
用的是积分sqrt(4-X^2)|0,2
program pi;
var
j : real;
i : longint;
begin
j := 0;
for i :=  1 to 20000000 do
  j := j + sqrt(4-sqr((i-0.5)/10000000))/10000000;
  writeln('pi = ',j);
end.
不是很手动吧

骰迷

应该是内切和外切求范围吧