由八皇后問題擴充套件開來，即n*n的棋盤上擺放n個皇后，使其不能互相攻擊，即任意兩個皇后都不能處於同一行、同一列或同一斜線上，問有多少種擺法。
分析：問題可以轉化為12345...n 的滿足某種條件(行已不等,列亦不等,只需設定其不在同一斜線上,即斜率不為 1 或-1 )的排列.
**：private sub queensn(byval n as integer, byref result() as string) '計算n皇后問題的過程
dim i as long, j as integer, k as integer, number as long, num as long '迴圈變數
dim fit as boolean '判定是否符合條件
dim all(), out() as string '用於輸出的陣列
redim all(1 to n)
redim out(1 to n)
number = 1
dim temp1 as long, temp2 as integer '進製轉換中間變數
for i = 1 to n
number = number * i ' get n!
next
for i = 1 to number ' 窮舉n!種排列
all(1) = 1
temp1 = i
for j = 2 to n
temp2 = temp1 mod j '混合進製
temp1 = temp1 \ j
if temp2 = 0 then
all(j) = j 'temp2為 0則放在最後
else
for k = j to temp2 + 1 step -1
all(k) = all(k - 1) ' temp2之後的元素後移一位
next
all(temp2) = j 'temp2不為 0 則置於第temp2個元素前
end if
next '至此得到12345...n的乙個排列
fit = true '初始化變數
'迴圈判斷有否兩個皇后存在互吃
for j = 1 to n
for k = n to 1 step -1
if not k = j then
if all(k) - all(j) = j - k or all(k) - all(j) = k - j then
fit = false
goto pass '跳出迴圈
end if
end if
next
next
if fit then '滿足條件時
num = num + 1 '輸出編號
redim preserve result(1 to num)
for j = 1 to n
out(j) = string(n, strconv("□", vbwide))
mid(out(j), all(j), 1) = strconv("q", vbwide)
next
result(num) = "第" & num & "種方法:" & vbcrlf & join(out, vbcrlf) '輸出第 num 種 n 個皇后擺放狀態
end if
pass:
next
end sub
private sub command1_click()
dim result() as string
queensn 9, result '九皇后
open "d:\result.txt" for binary as #1
put #1, , join(result, vbcrlf)
close #1
msgbox "ok"
end sub
N皇后問題
include define maxqueens 20 define minqueens 4 enum bool typedef struct queendata queendata queendata queens maxqueens 1 int ncount init int init chec...
N皇后問題
採用遞迴回溯法 執行結果 輸入8 對於n皇后解的個數，參考 當n 16時，構造法給出解，參考poj 3239 一 當n mod 6 2 且 n mod 6 3時，有乙個解為 2,4,6,8,n,1,3,5,7,n 1 n為偶數 2,4,6,8,n 1,1,3,5,7,n n為奇數 上面序列第i個數為...
N皇后問題
問題 題目 於西洋棋的玩法，因為皇后所在的位置可以縱向 橫向 兩個斜向四個方向的 捕捉 所以8皇后問題就是要求如何布置8個皇后在8 8的棋盤上而使他們互相無法 捕捉 也就是說不存在兩個皇后同行或同列，或在同一斜線上。而n皇后問題就是如何布置n個皇后在n n棋盤裡使不存在兩個皇后在同行同列和同一斜線上...