作业帮 > 综合 > 作业

Pascal 程序题计算:e=1+1/(2!)+1/(3!)+ …… +1/(n!)(1)求到第50项(2)求最后一项小

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/26 13:32:19
Pascal 程序题
计算:e=1+1/(2!)+1/(3!)+ …… +1/(n!)
(1)求到第50项
(2)求最后一项小于10^(-5)
(1)
var t,e:real;
i,j:integer;
begin
for i:=1 to 50 do
begin
t:=1;
for j:=i downto 1 do
t:=t/j;
e:=e+t;
end;
writeln(e:0:15);
end.
(保留15位小数)
(2)
var e,t:real;
i,k:integer;
begin
repeat
t:=1;
inc(k);
for i:=k downto 1 do
t:=t/i;
e:=e+t;
until t