用Pascal求Pi的程序,求电脑高手解答,谢谢
发布网友
发布时间：2024-10-23 21:35
共2个回答
热心网友
时间：2024-10-27 01:02
pi=4*(1-1/3+1/5-1/7+…)
算到新累加项绝对值（用fabs）小于1e-7时停止。
var pi,x:real; i:longint;
begin
pi:=0; x:=1; i:=1;
while x>=1E-7 do
begin
if odd(i) then pi:=pi+x else pi:=pi-x;
inc(i);
x:=1/(i+i-1);
end;
writeln('Pi=',4*pi:8:6);
end.
热心网友
时间：2024-10-27 00:57
pascal中是有pi的值的。
var a:real;
begin
a:=pi;
writeln(a);
end.
