给个过程吧H(n,a,b,c)表示把n个盘子从a柱通过b柱挪到c柱需要的步数program H(n:longint;a,b,c:char):longint;beginif n=1 then
begin
writeln(a,'->',c);//一个盘子只需一步
exit;
end;H(n-1,a,c,b);//为了把它们移到c柱，先要通过c柱移到b柱，这你可以手工算一下inc(step);//步数加一writeln(a,'->',c); H(n-1,b,a,c); //再从b柱移到c柱end....
|
