حل مسله 8 وزیر با زبان gwbasic
سلام دوستان
من این مسله 8 وزیر را با زبان gwbasic حل کردم. امیدوارم که مفید باشد.
زبان gwbasic فاقد توانایی استفاده از توابع خود صدازن یا بازگشتی است.
100 DEFINT I-N, S, X
110 DIM X(8), STK(40)
120 SP=40: M=0: GOSUB 150
130 END
140 '
150 M=M+1
160 IF M>8 THEN PRINT X(1); X(2); X(3); X(4); X(5); X(6); X(7); X(8): GOTO 220
170 FOR I=1 TO 8
180 J=1
190 IF J<M AND X(J)<>I AND ABS(X(J)-I)<>M-J THEN J=J+1: GOTO 190
200 IF J>=M THEN X(M)=I: GOSUB 240: GOSUB 150: GOSUB 270
210 NEXT
220 RETURN
230 '
240 SP=SP-3: STK(SP)=I: STK(SP+1)=J: STK(SP+2)=M
250 RETURN
260 '
270 I=STK(SP): J=STK(SP+1): M=STK(SP+2): SP=SP+3
280 RETURN
|