汉诺塔编程语言怎么做啊(只到5个就OK了)要移动5个
悬赏分:10 -
解决时间:2007-8-15 16:48汉诺塔编程语言
用PASCAL编程语言来解决5个盘子的移动
还要记录AA 给10个积分哦
8856
Program hanoi;
var n,t:integer;
procedure hanoi(n,a,b,c:integer);
begin
if n=1 then begin
t:=t+1;
writeln('step.',t,': ',a,'------>',b);
end
else begin
hanoi(n-1,a,c,b);
t:=t+1;
writeln('step.',t,': ',a,'------>',b);
hanoi(n-1,c,b,a);
end;
end;
begin{main}
assign(input,'hanoi.in');
reset(input);
assign(output,'hanoi.out);
rewrite(output);
readln(n);
t:=0;
hanoi(n,1,2,3);
end.
这是递推递归的基础,你是初学者吧
提问者对于答案的评价:
谢谢啦
我10分满意