帮忙看看我这pascal的程序的计算错在哪里了,应该怎样改?

发布网友发布时间：2024-10-01 18:37

共2个回答

热心网友时间：2024-10-17 15:55

program PI(input,output);

var n,i:longint; s:real;

begin

readln(n);

s:=1;

for i:=1 to n do if i mod 2 =1 then s:=s-1/i else s:=s+1/i;

writeln(s:0:4);

end.

热心网友时间：2024-10-17 15:58

这题很简单，但用你那方法就麻烦了。
直接用循环i，先判断一下i是否为奇数，是就+，不是就-，然后就完了，简单高效。
判断一个数是否为奇数有一个函数，好像是odd（i)。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com