作业帮 > 综合 > 作业

Delphi编程,计算e的近似值(e=1+1/1!+1/2!+1/3!+...+1/n!+...)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 19:55:29
Delphi编程,计算e的近似值(e=1+1/1!+1/2!+1/3!+...+1/n!+...)
从var开始写,我没基础,
function CalculateE(n: integer): real; // 计算 n 项, 返回 e 的近似值
var m, e: real; // 为了防止阶乘太大而溢出,把 m 改用 real 变量.
i: integer;
begin
e:=1; m:=1;
for i:=1 to n do
begin
m:=m*i;
e:=e+1/m;
end;
CalculateE:=e;
end;