作业帮 > 综合 > 作业

C=1+1/2+1/4+1/8+1/16+……+1/1024,求C的值,保留四位小数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/25 20:13:10
C=1+1/2+1/4+1/8+1/16+……+1/1024,求C的值,保留四位小数
这是我用pascal写的

结果总是4.408 到底错哪了 正确写法呢
赋初值 a:=1; b:=1
然后 a:=d*2 改为 a:=a*2
d:1 to 512 改为 d:1 to 10 //2、4、8、16...1024只有10项哦
再问: 不行啊 会变成这样然后没答案.

再答: 512改成10,出错应该是溢出了,
另外最后那个c:=1+b 就不要了,最后结果就是b,writeln(b:0:4)即可
再问: 麻烦整条写一下 因为结果还是错的 谢谢
再答: var a,d:longint;
      b:real;
begin
    a:=1;b:=1;
    for d:=1 to 10 do
        begin
        a:=a*2;
        b=b+1/a;
        end;
    writeln(b:0:4);
end.