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

函数方法:

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.

相关问题