编译一个程序,求e的值,当他那通项小于“10负七次方”停止计算e≈1+1/1!+1/2!+……+1/n!

Question

编译一个程序,求e的值,当他那通项小于“10负七次方”停止计算 e≈1+1/1!+1/2!+……+1/n!

Answer 1

program ch;
var
i:longint;
ans:extended;
function f(n:longint):extended;
begin
if n=1
then exit(1)
else exit(n*f(n-1));
end;
begin
ans:=1;i:=1;
while ans>1/10000000 do
begin
ans:=ans+1/f(i);
inc(i);
end;
writeln(ans:0:0);
end.