递归思想

以汉诺塔引入： 

var
 n,k:integer;
procedure xx(n:integer; a,c,b:char);
 begin
  if n=0 then exit;
  xx(n-1,a,b,c);
  k:=k+1;
  writeln(k,':',upcase(a),'->',upcase(c));
  xx(n-1,b,c,a);
end;
begin
 readln(n);
 k:=0;
 xx(n,'a','c','b');
 readln;
 readln;
end.   

有A,B,C三个柱子，我们要把A柱子上的全部移到C柱子上，

于是就应该把前n-1个圆盘移到B柱子上，在把第n个圆盘移到C柱子上...

------------------------------------------------------------------------------------------------

以N=2时举例.

{1}procedure xx(n:integer; a,c,b:char);     //a 到 c 中介为b 
{2}begin                                                     
{3}  writeln('n:=',n,' ',a,' ',b,' ',c);                         
{4}  if n=0 then exit;                                        
{5}  xx(n-1,a,b,c);                                           
{6}  k:=k+1;                                                  
{7}  writeln(k,':',upcase(a),'->',upcase(c));                 
{8}  xx(n-1,b,c,a);                                           
{9}end;                                                       
             {a}b{c} //                                    
//1...// n:=2 a b c  // A柱子上的最下面一个移到c 媒介为 b
//2...// n:=1 a c b  // A柱子上的倒数第二个移到b 媒介为 c
//3...// n:=0 a b c  // A柱子上没了，返回(第{6}行)开始移动..
//4...// 1:A->B      // 移动A柱子上最上面那个到B上(到第{8}行)
//5...// n:=0 c a b  // 完成第一子树的遍历，返回(第{6}行)
//6...// 2:A->C      // 将A移动到C
//7...// n:=1 b a c  // 移动B柱上的东西了..
//8...// n:=0 b c a  // 
//9...// 3:B->C      //                                    
//10..// n:=0 a b c  //                                    

 ------------------------------------------------