作业帮 > 综合 > 作业

计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 19:25:49
计算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.