UC知道pascal error200 以零做除数
来源：百度知道 编辑：UC知道 时间：2024/09/20 02:47:10
var
i,k:integer;
s:real;
begin
k:=1;
for i:=1 to 50 do
begin
k:=k * i;
s:= s + (1/k);
end;
writeln(s);
readln
end.
没有以0做除数啊！！郁闷。。。
1/1! + 1/2! +1/3! …… + 1/N!
我不知道错误出到哪了。。
哦，这样啊。。谢谢 √语 E浪人
回复 牧云海：
error205 Floating point overflow ( 浮点运算上溢 )
i,k:integer;
s:real;
begin
k:=1;
for i:=1 to 50 do
begin
k:=k * i;
s:= s + (1/k);
end;
writeln(s);
readln
end.
没有以0做除数啊！！郁闷。。。
1/1! + 1/2! +1/3! …… + 1/N!
我不知道错误出到哪了。。
哦，这样啊。。谢谢 √语 E浪人
回复 牧云海：
error205 Floating point overflow ( 浮点运算上溢 )
浮点运算上溢说明你需要用高精度
题目具体一点！
是不是
1/1+1/2+1/3+1/4+1/5。。。。。。+1/N；
把K 用高精度
I 到50 时 K 爆掉了！太大了
longint也不够
高进度麻烦
最好用什么公式
把k改成实数是最省事的改法。