- 博客(6)
- 收藏
- 关注
原创 QBASIC 非递归法解八皇后问题
CLSDIM queen(1 TO 8) AS INTEGERCOUNTER = 0row = 1queen(row) = 0DO 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
原创 QBASIC 递归法解八皇后问题
DECLARE SUB EIGHTQUEEN (A() AS INTEGER, ROW AS INTEGER)CLSDIM A(1 TO 8) AS INTEGERCALL EIGHTQUEEN(A(), 1)ENDSUB EIGHTQUEEN (A() AS INTEGER, ROW AS INTEGER) STATIC COUNTER AS INTEGER
2011-10-24 11:51:44
346
原创 QBASIC 报数选班长
'2004年合肥市信息学竞赛初中组复赛第一题'小雪所在的班级有n个学生(n<100),现在要选出一个同学当班长。'采用的方法是:先将所有同学排队站好,然后从头到尾1至k循环报数(k<10),'报到k的同学退出。再由尾到头1至k循环报数,报到k的同学退出……依次类推,'当剩下k-1个同学时,报1的同学为班长。小雪想当班长为大家服务,'请问小雪开始站队时,从头开始数,应该站在什么位
2011-10-24 11:36:14
426
原创 PJ953.c
/*编码问题:若将一个正整数化为二进制数,在此二进制数中,我们将数字1的个数多于数字0的个数的这类二进制数称为A类数,否则就称其为B类数。例如:(13)10=(1101)2其中1的个数为3,0的个数为1,则称此数为A类数;(10)10=(1010)2其中1的个数为2,0的个数也为2,称此数为B类数;(24)10=(11000)2其中1的个数为2,0的个数为3,则
2011-10-24 11:19:04
425
原创 PJ952.c
/*方阵填数:在一个N*N的方阵中,填入1,2,……N*N个数,并要求构成如下的格式:例:N=513 14 15 16 112 23 24 17 211 22 25 18 310 21 20 19 49 8 7 6 5 N=6 16 17 18 19 20 1 15 30 31 32 21 2 14 29 36 3
2011-10-24 11:12:38
400
原创 PJ951.c
/*设有下列的算式: 8 0 9 -------------□□) □□□□ □□ ------------- □□□ □□□ ------------- 1 求出□中的数字,并打印出完整的算式来。*/#include #i
2011-10-24 11:06:43
252
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人