移梵塔
program p1;
var x,y,z:char;
    n,k:integer;
procedure sub(n:integer;a,c,b:char);
  begin
    if n=0 then exit;
    sub(n-1,a,b,c);
    inc(k);
    writeln(k,':from',a,'-->',c);
    sub(n-1,a,b,c);
  end;
begin
 write('n=');
 readln(n);
 k:=0;
 x:='A';y:='B';z:='C';
 sub(n,x,z,y);
end.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826493
个人分类: 编程
想对作者说点什么? 我来说一句

n圆盘梵塔问题的递归求解

2010年06月26日 225KB 下载

梵塔-vb.net实现,并计算用时

2009年06月04日 379KB 下载

没有更多推荐了,返回首页

不良信息举报

移梵塔

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭