17-5.txt

来自「编译原理课程设计大作业PL0文法简易编译器」· 文本 代码 · 共 33 行

function power(a,b:integer):integer;
 begin
    if b=1 then power:=a
    else power:=a*power(a,b-1)
 end;    

function fac(x:integer):integer;
  var
     i:integer;
     j:integer;
  begin
     fac:=1;
     for i:=1 to x do
     fac:=fac*i; 
  end;

function c(a,b:integer):integer;
  begin
     c:=fac(a)/fac(b)*fac(a-b)
  end;

begin
  
  write("power(3,3) = ", power(3,3));
  writeln("c(9,3)= ",c(9,3));
  writeln("c(8,5)= ",c(8,5))

end.