![]() |
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-10-31 14:55 |
共 47,815 主题排行 / 349,930 发帖 / 今日 0 篇 / 48,290 会员排行 |
| DOS开发编程 & 发展交流 (开发室) » 看看这段代码吧! |
| 可打印版本 889 / 3 |
| 第1楼 borlinpac | 发表于 2004-05-16 00:00 |
| 初级用户 发帖 5 积分 119 | |
|
看看这段代码吧! 看了之后你肯定会对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 |
| 高级用户 发帖 201 积分 893 | |
|
好象没什么认识!因为我对这个一点都不懂,能不能说点基本的,从头开始学的
|
|
| 第3楼 qinqong | 发表于 2004-06-03 00:00 |
| 高级用户 发帖 148 积分 599 | |
|
在刚做的C语言数据结构上机试验题中我用了好几个Goto,汗。。。。。
|
|
| 第4楼 救世猪 | 发表于 2004-06-03 00:00 |
| 初级用户 发帖 13 积分 121 | |
|
goto并不是洪水猛兽,没必要害怕它。当年c语言的开发者们就是否在c语言里保留goto进行过大辩论,结果是goto被保留了下来,可见,goto还是有用的,但从结构化编程的角度出发,轻易不要使用它。
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |