![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
QBASIC 信息学
文章平均质量分 52
robin_1_2_3_4_5_6_
这个作者很懒,什么都没留下…
展开
-
QBASIC 递归法解八皇后问题
DECLARE SUB EIGHTQUEEN (A() AS INTEGER, ROW AS INTEGER) CLS DIM A(1 TO 8) AS INTEGER CALL EIGHTQUEEN(A(), 1) END SUB EIGHTQUEEN (A() AS INTEGER, ROW AS INTEGER) STATIC COUNTER AS INTEGER原创 2011-10-24 11:51:44 · 346 阅读 · 0 评论 -
QBASIC 报数选班长
'2004年合肥市信息学竞赛初中组复赛第一题 '小雪所在的班级有n个学生(n<100),现在要选出一个同学当班长。 '采用的方法是:先将所有同学排队站好,然后从头到尾1至k循环报数(k<10), '报到k的同学退出。再由尾到头1至k循环报数,报到k的同学退出……依次类推, '当剩下k-1个同学时,报1的同学为班长。小雪想当班长为大家服务, '请问小雪开始站队时,从头开始数,应该站在什么位原创 2011-10-24 11:36:14 · 426 阅读 · 0 评论 -
QBASIC 非递归法解八皇后问题
CLS DIM queen(1 TO 8) AS INTEGER COUNTER = 0 row = 1 queen(row) = 0 DO IF row = 0 THEN EXIT DO queen(row) = queen(row) + 1 IF queen(row) = 9 THEN row(row) = 0 row = row - 1原创 2011-10-24 12:16:29 · 295 阅读 · 0 评论