写过一个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.
不是很手动吧作者: lanjingling 时间: 2011-6-7 20:57:48