m文件编程:1.定义一个函数文件,要求输入参数为n,其返回值为y,y=1!+2!+…+n!
答案:2 悬赏:0
解决时间 2021-11-16 17:46
- 提问者网友:雨之落き
- 2021-11-16 11:24
m文件编程:1.定义一个函数文件,要求输入参数为n,其返回值为y,y=1!+2!+…+n!
最佳答案
- 二级知识专家网友:心痛成瘾
- 2021-11-16 11:47
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
i, k, n, y: Integer;
begin
k := 1;
y := 0;
writeln('定义一个函数文件,要求输入参数为n,其返回值为y,y=1!+2!+…+n!');
writeln('请输入n');
readln(n);
for i := 1 to n do
begin
k := k * i;
y := y + k;
end;
writeln('y为:', y);
readln;end.
{$APPTYPE CONSOLE}
uses SysUtils;
var
i, k, n, y: Integer;
begin
k := 1;
y := 0;
writeln('定义一个函数文件,要求输入参数为n,其返回值为y,y=1!+2!+…+n!');
writeln('请输入n');
readln(n);
for i := 1 to n do
begin
k := k * i;
y := y + k;
end;
writeln('y为:', y);
readln;end.
全部回答
- 1楼网友:猎杀温柔
- 2021-11-16 12:33
function sum=factsum(n)
sum=0;
for i=1:n
sum = sum + factorial(i);
end
再看看别人怎么说的。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯