主题:汉诺塔
lidongchao
[专家分:30] 发布于 2010-10-04 14:28:00
汉诺塔怎么用pascal写,请帮帮我!
回复列表 (共15个回复)
沙发
稀栗哥3 [专家分:30] 发布于 2010-10-04 14:29:00
靠,进上午我们不是一起学的吗?
板凳
cgl_lgs [专家分:21040] 发布于 2010-10-04 15:24:00
又是一個學校的?
呵呵。
3 楼
lidongchao [专家分:30] 发布于 2010-10-04 15:41:00
帮我写出程序,THANK YOU!!!!!!!!!!!!!!!!!!!!!
4 楼
稀栗哥3 [专家分:30] 发布于 2010-10-04 16:09:00
对,是的啊,我们是一个学校的啊,就是为了互相帮助一下,整点专家分,其实我们,挺惭愧。。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·。。见笑[em2][em2]
5 楼
cgl_lgs [专家分:21040] 发布于 2010-10-04 23:47:00
整分正常啦,只要不亂灌也不錯了,相信小甜甜也不會怪你們的:)
6 楼
稀栗哥3 [专家分:30] 发布于 2010-10-05 08:12:00
小甜甜很牛啊,专家分3000多。[em1][em1][em1][em1][em1][em1]
7 楼
小田甜 [专家分:3910] 发布于 2010-10-05 11:57:00
……
这刷分很正常嘛……,
只要不是广告其实我现在基本上也顾不上这边的。
光手头的作业什么的就有的忙了。
而且现在不学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 楼
lidongchao [专家分:30] 发布于 2010-10-05 14:21:00
thank you!小甜甜
9 楼
cgl_lgs [专家分:21040] 发布于 2010-10-05 17:46:00
呵呵,主要是我這分數主要是從C和FORTRAN區得的,PASCAL里得的分數遠沒有小甜甜多啊:)
10 楼
lidongchao [专家分:30] 发布于 2010-10-06 11:19:00
嘻嘻,我给你30
我来回复