递归函数，出现问题

Question

function Rank(M,N:Integer):Real;
begin
  Function Fac(X:Integer):Real;
  begin
    if X=0 then result:=1
    else
     Result:=X*Fax(X-1);
  end;
  Result:=Fac(M)/Fac(N)*Fac(M-N);end;

Answer 1

Function Fac(X:Integer):Real;
  begin
    if X=0 then result:=1
    else
     Result:=X*Fax(X-1);
  end;function Rank(M,N:Integer):Real;
begin
   Result:=Fac(M)/Fac(N)*Fac(M-N);
end;

Answer 2

function定义好像不能嵌套
分别声明后
你可以在一个函数中调用另外一个函数了

Answer 3

function Rank(M,N:Integer):Real;
  Function Fac(X:Integer):Real;
  begin
    if X=0 then result:=1
    else
     Result:=X*Fax(X-1);
  end;
begin
    Result:=Fac(M)/Fac(N)*Fac(M-N);
end;是这样用的！

Answer 4

moonetra(moonetra) 
 
       非常正确，谢谢。       谢谢各位热情的参与!