计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/26 12:44:02
![计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做](/uploads/image/z/5169329-17-9.jpg?t=%E8%AE%A1%E7%AE%97s.%E5%B7%B2%E7%9F%A5+s%3D10%21%2B7%21%2A8%21%E5%B0%86n%21%E5%AE%9A%E4%B9%89%E6%88%90%E5%87%BD%E6%95%B0%E5%92%8C%E8%BF%87%E7%A8%8B%E4%B8%A4%E7%A7%8D%E6%96%B9%E6%B3%95%E5%81%9A)
计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做
计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做
计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做
函数方法:
PROGRAM func(input,output);
VAR a,b,c,s:integer;
function fac(n:integer):longint;
var i:integer;
p:longint;
begin
p:=1;
for i:=1 to n do p:=p*i;
fac:=p;
end;
BEGIN
read(a,b,c);
s:=fac(a)+fac(b)*fac(c);
writeln(‘s=‘,s)
END.
过程方法:
PROGRAM proc(input,output);
VAR a,b,c:integer;
s1,s2,s3:longint;
PROCEDURE fac(x:integer;var s:longint);
var i:integer;
begin
s:=1;
for i:=1 to x do s:=s*i
end;
BEGIN
read(a,b,c);
fac(a,s1);
fac(b,s2);
fac(c,s3);
writeln('s=',s1+s2*s3)
END.