四种方法求阶乘

最新推荐文章于 2022-10-30 22:07:06 发布

weixin_30430169

最新推荐文章于 2022-10-30 22:07:06 发布

阅读量78

点赞数

原文链接：http://www.cnblogs.com/qilinart/articles/3159576.html

版权

㈠

㈡

function fac(n:longint):longint;
var i:longint;
begin
    fac:= 1;
     for i:= 2 to n do fac:=fac*i;
end;

begin
    writeln(fac( 3)+fac( 5)+fac( 6));
end.

㈢

function fac(n:longint):longint;
begin
     if n= 1 then fac:= 1
     else fac:=n*fac(n- 1);
end;

begin
    writeln(fac( 3)+fac( 5)+fac( 6));
end.

㈣

var
    a: array[ 1.. 10] of longint;
    i:longint;
begin
    a[ 1]:= 1;
     for i:= 2 to 10 do a[i]:=i*a[i- 1];
    writeln(a[ 3]+a[ 5]+a[ 6]);
end.

转载于:https://www.cnblogs.com/qilinart/articles/3159576.html