早教吧 育儿知识 作业答案 考试题库 百科 知识分享

汉诺塔pascalwikioi3145汉诺塔问题(又称为河内塔问题),是一个大家熟知的问题。在A,B,C三根柱子上,有n个不同大小的圆盘(假设半径分别为1-n吧),一开始他们都叠在我A上(如图所示

题目详情
汉诺塔pascal wikioi 3145
汉诺塔问题(又称为河内塔问题),是一个大家熟知的问题。在A,B,C三根柱子上,有n个不同大小的圆盘(假设半径分别为1-n吧),一开始他们都叠在我A上(如图所示),你的目标是在最少的合法移动步数内将所有盘子从A塔移动到C塔。
游戏中的每一步规则如下:
1. 每一步只允许移动一个盘子(从一根柱子最上方到另一个柱子的最上方)
2. 移动的过程中,你必须保证大的盘子不能在小的盘子上方(小的可以放在大的上面,最大盘子下面不能有任何其他大小的盘子)

如对于n=3的情况,一个合法的移动序列式:
1 from A to C
2 from A to B
1 from C to B
3 from A to C
1 from B to A
2 from B to C
1 from A to C

给出一个数n,求出最少步数的移动序列
通过的进!!
▼优质解答
答案和解析
var n,i,z:longint;
procedure h(n:longint;a,b,c:char);
begin
if n=1 then writeln(n,' from ',a,' to ',c)
else
begin
h(n-1,a,c,b);
writeln(n,' from ',a,' to ',c);
h(n-1,b,a,c);
end;
end;
begin
readln(n);
z:=1;
for i:=1 to n do
z:=z*2;
dec(z);
writeln(z);
h(n,'A','B','C');
end.
本程序已经AC,望采纳,也希望交个朋友,本人浙江神死魔灭