pascal汉诺塔解释
发布网友
发布时间：2022-11-06 17:35
共1个回答
热心网友
时间：2023-10-26 21:47
total:integer; （总层数）
procere move(n,a,b,c:integer);（递归过程）
begin
if n=1 （最底层）
then writeln(a,'-->',c)（直接输出操作）
else begin （非最底层）
move(n-1,a,c,b); （运用递归将上面的移走）
writeln(a,'-->',c); （移动该层）
move(n-1,b,a,c); （将上面的层移回来）
end;
end;
begin {主程序}
read(total); （读入总层数）
move(total,1,2,3); （移动）
end.
