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

Pascal 程序题
计算：e=1+1/（2!）+1/（3!）+ …… +1/（n!）
（1）求到第50项
（2）求最后一项小于10^(-5)
nan26chang 1年前 已收到1个回答 举报
赞

echdxz 幼苗

共回答了19个问题采纳率：89.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

1年前

5
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.030 s. - webmaster@yulucn.com