中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-01 08:00
中国DOS联盟论坛 » DOS开发编程 & 发展交流 (开发室) » 看看这段代码吧! 查看 709 回复 3
楼 主 看看这段代码吧! 发表于 2004-05-16 00:00 ·  中国 河南 郑州 联通
初级用户
积分 119
发帖 5
注册 2004-05-15 00:00
22年会员
UID 24433
性别 男
状态 离线
看了之后你肯定会对GOTO有害有深刻的认识:
八皇后问题(QBASIC版)10 I = 1
20 A(I) = 1
30 G = 1
40 FOR K = I - 1 TO 1 STEP -1
50 IF A(I) = A(K) THEN 70
60 IF ABS(A(I) - A(K)) I - K THEN 90
70 G = 0
80 GOTO 100
90 NEXT K
100 IF I 8 THEN 180
110 IF G = 0 THEN 180
120 FOR L = 1 TO 8
130 PRINT USING "##"; A(L);
140 NEXT L
150 PRINT "*";
160 M = M + 1
170 IF M MOD 3 = 0 THEN PRINT
180 IF G = 0 THEN 230
190 IF I = 8 THEN 230
200 I = I + 1
210 A(I) = 1
220 GOTO 30
230 IF A(I) < 8 THEN 270
240 I = I - 1
250 IF I = 0 THEN 290
260 GOTO 230
270 A(I) = A(I) + 1
280 GOTO 30
290 PRINT
300 PRINT "SUM="; USING "##"; M;
310 PRINT
320 END






2 发表于 2004-05-25 00:00 ·  中国 北京 中移铁通
高级用户
★★
游客隐者
积分 893
发帖 201
注册 2004-04-27 00:00
22年会员
UID 23335
性别 男
状态 离线
好象没什么认识!因为我对这个一点都不懂,能不能说点基本的,从头开始学的
^-^ 党和国家教导我们,看帖一定要回帖,做一个文明的网民.
3 发表于 2004-06-03 00:00 ·  中国 河南 郑州 联通
高级用户
★★
积分 599
发帖 148
注册 2003-10-30 00:00
22年会员
UID 12192
性别 男
状态 离线
在刚做的C语言数据结构上机试验题中我用了好几个Goto,汗。。。。。
4 发表于 2004-06-03 00:00 ·  中国 湖北 武汉 电信
初级用户
积分 121
发帖 13
注册 2004-05-16 00:00
22年会员
UID 24466
性别 男
状态 离线
goto并不是洪水猛兽,没必要害怕它。当年c语言的开发者们就是否在c语言里保留goto进行过大辩论,结果是goto被保留了下来,可见,goto还是有用的,但从结构化编程的角度出发,轻易不要使用它。
奇怪地球上怎么没有MM看上我……
论坛跳转: