0:几种数学式的定义:
Fibonacci数列:
function Fibonacci(n:integer):integer;
begin
if n1 then result:=1
else result:=Fibonacci(n-1)+Fibonacci(n-2)
end;
阶乘,
function RankMulti(n:integer):integer;
begin
if n1 then result:=1
else result:=RankMulti(n-1)*n
end;
Ackerman函数:(变态的老外什么都想的出来)
function Ackerman(n,m:integer):integer;
begin
result:=0;
if (n=1) and (m=0) then result:=2
else
if (n=0) and( m=1) then result:=1
else
if (n=...[ 查看全文 ]