pascal 程序设计 能回答的帮个忙 急求答案！

来源：百度知道 编辑：UC知道 时间：2024/06/07 06:32:34
利用下列公式计算并输出π的值。
π/4＝1-1/3+1/5-1/7+……+1/（4n-3）-1/（4n-1）
n＝10000

谢谢了！~~~~~~~~~
用 pascal 循环语句编写

var
i,f:longint;
s:real;
begin
s:=0;
i:=1;
f:=1;
repeat
s:=s+f*(1/i);
i:=i+2;
f:=-f;
until (1/i)<0.00001;
s:=s*4;
writeln(s:0:7);
readln;
end.

program xxx(input,output);
var
s:real;
i:longint;
begin
for i:=1 to 20000 do begin
if (i mod 2)=1 then s:=s+1/(2*i-1);
if (i mod 2)=0 then s:=s-1/(2*i-1);
end;
write('pi:',s*4);
end.

var
i,f:longint;
s:real;
begin
s:=0;
i:=1;
f:=1;
repeat
s:=s+f*(1/i);
i:=i+2;
f:=-f;
until (1/i)<0.00001;
s:=s*4;
writeln(s:0:7);
readln;
end.

program xxx(input,output);
var
s:real;
i:longint;
begin
for i:=1 to 20000 do begin
if (i mod 2)=1 then s:=s+1/(2*i-1);
if (i mod 2)=0 then s:=s-1/(2*i-1);
end;
write('pi:',s*4);
end.