نوشته اصلي بوسيله kcpu (پست 42648)

سلام دوستان
من این مسله 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