pascal求π的值.已知π/4=1 – 1/3 +1/5 – 1/7 + 1/9 - ……,要求最后一项小于10-6为止.
答案:2 悬赏:0 手机版
解决时间 2021-03-07 04:49
- 提问者网友：暗中人
- 2021-03-06 14:24
使用while循环
最佳答案
- 五星知识达人网友：不甚了了
- 2021-03-06 15:13
var p:real; i,t:longint;
begin
p:=0;
i:=-1;
t:=-1;
while i<1E6 do
begin
inc(i,2);
t:=-t;
p:=p+t/i;
end;
p:=p*4;
writeln('Pi=',p:8:6);
end.
begin
p:=0;
i:=-1;
t:=-1;
while i<1E6 do
begin
inc(i,2);
t:=-t;
p:=p+t/i;
end;
p:=p*4;
writeln('Pi=',p:8:6);
end.
全部回答
- 1楼网友：行雁书
- 2021-03-06 15:47
不明白啊 = =！
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯