查人人中国名人网健身房练腹肌的器材:高斯的八皇后数学题用qbasic能解决么？该怎么写程序？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 14:32:55
高斯的八皇后数学题用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