幫 |
|
sandy
一般會員 發表:2 回覆:5 積分:1 註冊:2002-04-17 發送簡訊給我 |
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
function AA(m,n:integer):integer;
begin
if m=0 then Result:=n 1
else if n=0 then Result:=AA(m-1, 1)
else Result:=AA(m-1, AA(m, n-1));
end; procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(AA(3,3)));
showmessage(inttostr(AA(5,2)));
end;
|
sandy
一般會員 發表:2 回覆:5 積分:1 註冊:2002-04-17 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
假設有一數學函數:
A(m,n)=n 1, m=0
有一個函數叫做A(),它有兩個參數m與n,當m等於0時,A()函數的值就是n 1
A(m,n)=A(m-1,1), m!=0 and n=0
當m不等於0時且n等於0時,A(m,n)函數的值就是A(m-1,1)的值
A(m,n)=A(m-1,A(m,n-1)), otherwise
若m與n都不等於0時,A(m,n)函數的值就是A(m-1,A(m,n-1))的值
這樣懂嗎?
P.S:紅色為m的值,藍色為n的值 ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
sandy
一般會員 發表:2 回覆:5 積分:1 註冊:2002-04-17 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
sandy
一般會員 發表:2 回覆:5 積分:1 註冊:2002-04-17 發送簡訊給我 |
|
sandy
一般會員 發表:2 回覆:5 積分:1 註冊:2002-04-17 發送簡訊給我 |
#include
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |