17-5-e.txt

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

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):real;
  var
     i:integer;
  begin
     fac:=1;
     for i:=1 to x do 
       fac:=fac*i
  end;

function c(a,b:integer):real;
  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,5));
  writeln("c(8,5)= ",c(8,5))

end.