求解一个程序

来源:百度知道 编辑:UC知道 时间:2024/06/14 14:51:44
Program test4;
Function Ack(M,N:Integer):Integer;
Begin
If M=0 Then Ack:=N+1
Else If N=0 Then Ack:=Ack(M-1,1)
Else Ack:=Ack(M-1,Ack(M,N-1))
End;
Begin
WriteLn(Ack(3,4));
ReadLn;
End.
我知道答案为125,请写过程或思路
采纳后一定追加分(pascal)

这题是十分的简单,你可以画一个二维表格,每次记录ack(n,m)的值并且放进相应的格里面即可,然后输出二维的3,4(注意表格里面的数值是有一些规律的,是等差序列哦)
假设行是3,列是4并且设立边界(看我的树组)

a 1 2 3 4 5 6 7 8 9 10
--------------------------
1 ‖1 2 3 4 5 6 7 8 9 10
2 ‖
3 ‖
4 ‖

依次类推下去,你会的