以汉诺塔引入:
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 //
------------------------------------------------