汉诺塔pascal wikioi 3145
汉诺塔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，求出最少步数的移动序列
通过的进！！
汉诺塔问题（又称为河内塔问题），是一个大家熟知的问题。在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，求出最少步数的移动序列
通过的进！！
赞 yanshuxu426 幼苗
共回答了25个问题采纳率：96% 举报
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，望采纳，也希望交个朋友，本人浙江神死魔灭
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，望采纳，也希望交个朋友，本人浙江神死魔灭
1年前
1
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗