回 帖 发 新 帖 刷新版面

主题:汉诺塔

汉诺塔怎么用pascal写,请帮帮我!

回复列表 (共15个回复)

沙发

靠,进上午我们不是一起学的吗?

板凳

又是一個學校的?
呵呵。

3 楼

帮我写出程序,THANK YOU!!!!!!!!!!!!!!!!!!!!!

4 楼

对,是的啊,我们是一个学校的啊,就是为了互相帮助一下,整点专家分,其实我们,挺惭愧。。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·。。见笑[em2][em2]

5 楼

整分正常啦,只要不亂灌也不錯了,相信小甜甜也不會怪你們的:)

6 楼

小甜甜很牛啊,专家分3000多。[em1][em1][em1][em1][em1][em1]

7 楼

……

这刷分很正常嘛……,
只要不是广告其实我现在基本上也顾不上这边的。
光手头的作业什么的就有的忙了。
而且现在不学oi了(其实早就不学了),
那些oi的题也基本上是不会做了,
感觉也帮不上什么忙……

不过现在不错了,终归说这里还算是有人在。

汉诺塔这个应该是一搜一大堆的吧。

还有,就是,分明[url=http://bbs.pfan.cn/member.asp?userid=3239]cgl_lgs[/url]的专家分更多嘛……


不过既然能从自己电脑上找出来,就贴一下。
[code]
program h;
  var
    n:byte;
    step:longint;
  procedure hanoi(a,b,c:char;n:byte);
  begin
    if n<>0 then begin
      hanoi(a,c,b,n-1);
      writeln(a,#196#16,b);
      step:= step+1;
      hanoi(c,b,a,n-1);
    end;
  end;
begin
  step:=0;
  write('N='); readln(n);
  hanoi('a','c','b',n);
  write('Total Step:',step);
  readln;
end.
[/code][em1][em1][em1][em2][em1][em1]

8 楼

thank you!小甜甜

9 楼

呵呵,主要是我這分數主要是從C和FORTRAN區得的,PASCAL里得的分數遠沒有小甜甜多啊:)

10 楼

嘻嘻,我给你30

我来回复

您尚未登录,请登录后再回复。点此登录或注册