球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 05:24:32
球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?球用PASCAL编写1-1/2+2/3-3/4+…-99/100

球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?
球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?

球用PASCAL编写1-1/2+2/3-3/4+…-99/100=?
由题意可发现,从1/2开始,
当分子是奇数时进行减法运算,
当分子是偶数时进行加法运算,
具体程序如下
var
i,j,m:longint;
n:real;
begin
n:=1;
for i:=1 to 99 do
begin
if i mod 20 then 判断分子是否为奇数
n:=n-i/(i+1)
else n:=n+i/(i+1);
end;
write(n);
end.