if、函数、递归 老是报错！！！

Question

function func(x:integer):integer;
begin
     if(x=0) then
          result 0
     else
          result x*func(x-1);
end;错在哪了呢？

Answer 1

首先是语法错误 result 0 应为result:=0,依此类推。

Answer 2

function func(x:integer):integer;
begin
     if x=0 then
          result :=0
     else
          result := x*func(x-1);
end;

Answer 3

result:=0改为result:=1
不然函数永远返回0

Answer 4

function func(x:integer):integer;
begin
  if x=0 then
  result:=1
  else
  result:=x*func(x-1);
end;