关闭

移梵塔

477人阅读 评论(0) 收藏 举报
分类:
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.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15166次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档