编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.(要求定义函数sum求和,在函数sum中调用n!的函数求加数.)求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/24 00:49:32
编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.(要求定义函数sum求和,在函数sum中调用n!的函数求加数.)求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加
xRN@vJZ_TSSeE]J4@Яt_p6\7w{9wl2F0wGdPBU8;a( tPG/m  [5sP2̿[9}yUR;rz7dv'* @ځ;'T2euR91e_ c= m` +QkQw';zsY:fW؍d!tsJH`[J^%@y_zZ/r2"pfq>1=I&$TH1iV+G@lҷ sڂKk\%߹6%L{ ̻)Vv>MT

编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.(要求定义函数sum求和,在函数sum中调用n!的函数求加数.)求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加
编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.(要求定义函数sum求和,在函数sum中调用n!的函数求加数.)
求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加分的

编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.(要求定义函数sum求和,在函数sum中调用n!的函数求加数.)求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加
var
s:real;
n:longint;
function jc(x:longint):longint;
var
i:longint;
begin
jc:=1;
for i:=2 to x do
jc:=jc*i;
end;
function sum:real;
var
i:longint;
begin
sum:=0;
for i:=1 to n do
sum:=sum+1/js(i);
end;
begin
readln(n);
s:=sum;
writeln(s);
end.