N皇后问题

原创 2004年08月09日 17:35:00

题目:

由八皇后问题扩展开来,即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

 

[精品]Word2010实战技巧

全是来自实际工作的问题处理与技能技巧。 包括:批量设置文字格式、图文混排、论文书籍排版、带照片的工作证等实用案例。
  • 2015年05月06日 17:40

分支限界法解决N皇后问题

  • 2013年01月11日 11:12
  • 2KB
  • 下载

Python实现N皇后问题

八皇后问题: 就是随机的在一个8*8的棋盘上,放置八个皇后,使其每个皇后的位置不在同一条直线上并且不在同一条对角线上。类似的可以扩展到n*n的棋盘上。 # -*- coding:utf-8 -*- i...
  • u014645717
  • u014645717
  • 2016-08-08 10:58:26
  • 458

n皇后问题总结

N皇后问题是一个经典的问题,在一个N*N的棋盘上放置N个皇后,每行一个并使其不能互相攻击(同一行、同一列、同一斜线上的皇后都会自动攻击)。 一、 求解N皇后问题是算法中回溯法应用的一个经典案例    ...
  • lanximu
  • lanximu
  • 2014-01-14 23:06:19
  • 1246

递归求解N皇后问题(c语言)

/**//*=====N皇后问题*/#include stdio.h>#include conio.h>#include "../include/type.h"/**//*包含枚举变量bool的typ...
  • hichi2000
  • hichi2000
  • 2008-04-28 10:57:00
  • 3112

【蓝桥杯训练】------2n皇后问题

题目描述  给定一个n*n的棋盘,棋盘中有一些位置不能放皇后。现在要向棋盘中放入n个黑皇后和n个白皇后,使任意的两个黑皇后都不在同一行、同一列或同一条对角线上,任意的两个白皇后都不在同一行、同一...
  • u012970471
  • u012970471
  • 2015-03-11 20:05:27
  • 1184

N皇后问题(DFS)N皇后问题

这题是经典的DFS问题。 题意很清楚,任意两个皇后不能再同一行同一列,同一斜线上。如下图: 刚看到这题,我并不打算用一个二维数组处理行列,没有必要浪费空间,一维已足够解决该问题了。数组下标表示行,...
  • Coding_Or_Dead
  • Coding_Or_Dead
  • 2016-09-09 15:43:34
  • 756

n皇后问题—回溯法 C++实现

#include #include using namespace std; bool isLegal(int row,int col,vector &v,int n) { for(int i=...
  • gl486546
  • gl486546
  • 2017-09-02 22:18:13
  • 302

位运算求解n皇后问题[模板]

位运算
  • SenyeLicone
  • SenyeLicone
  • 2016-08-22 11:48:25
  • 474

hdu n皇后问题 dfs打表

代码 : #include #include #include int map[50][50]; int hang[50],lie[50];//hang【x】,代表x行有没有皇后,lie是相同的。...
  • lw277232240
  • lw277232240
  • 2017-07-14 16:00:59
  • 237
收藏助手
不良信息举报
您举报文章:N皇后问题
举报原因:
原因补充:

(最多只允许输入30个字)