http://www.csdn.net/expert/topic/131/131350.shtm
看看。
看看。
解决方案 »
- 以下的语句是什么语法?
- mssql2000数据库,C/S架构,开发平台与服务器运行客户端可以,其它终端提示拒绝连接。
- 帮帮忙给这套程序定个价
- 怎样用ADO访问设了密码的ACCESS数据库,
- 问一个SQL语句,如何查询TableA中的一个字段在TableB中的一个字段没有的纪录
- 请问md5控件使用的步骤?
- 如何在DELPHI中进行16进制到2进制的转换!有没有相关的函数啊!?
- 在DBGrid中修改某字段内容时,怎样获取修改时的内容
- 请问如何计算任意两个日期之间相差多少个月(2001-1-3 to 2001-3-1 = 2)
- 在Delphi中有没有哪个函数判断一个数据是某类型的数据?
- delphi能否使用擴展名為lib的庫文件?
- QQ木马的代码公布,很简单,希望高手能把他更完善!
发表时间:2001.06.01 17:43
阅读次数:13
文章作者:emi
文章内容:回溯法:八皇后问题
在程序设计中还有一种方法叫做"回溯法".他不是按照某种公式或确定的法则,求问题的解,而是通过试探和纠正错误的策略,找到问题的街.这种方法一般是从一个原始状态出发,通过若干步试探,最后达到目标状态终止.
回溯法在理论上来说,就是在一棵搜索树中从根结点出发,找到一条达到满足某条件的子结点的路径.在搜索过程中,对于每一个中间结点,他的位置以及向下搜索过程是相似的,因此完全可以用递归来处理.典型的例子就是著名的"八皇后问题".
"八皇后问题"是在国际象棋棋盘上放置八个皇后,使她们不能相吃.国际象棋中的皇后可以吃掉与她处于同一行,同一列,同一对角线上的棋子.因此每一行只能摆放一个皇后.因共有八行,所以每行有且只有一个皇后.
在本例中皇后的位置有一个一维数组来存放A(I)=J表示第I行皇后放在第J列.下面主要来看看怎么样判断皇后是否安全的问题.(1)首先,用一维数组来表示,已经解决了不在同一行的问题.(2)对于列可以引进一个标志数组C[J],若J列上已放了皇后,则C[J]=FALSE.(3)对于左上右下的对角线I-J为一常量,位于[-7,+7]之间,再此引入标志数组L[-7..7];对于左下右上的对角线,类似的有I+J等于常量,用数组R[2..16]来表示.当在第I行,第J列上放置了皇后,则只需设置:C[J]:=FALSE; L[I-J]:=FLASE; R[I+J]:=FALSE就可以解决皇后的安全问题了.
源程序如下:
Program eightqueens;
var cont,i:integer;
a:array[1..8] of byte;
c:array[1..8] of boolean;
l:array[-7..7] of boolean;
r:array[2..16] of boolean;
q:boolean;
procedure pr;
var i:integer;
begin
for i:=1 to 8 do write(a[i]:4);
inc(cont);writeln('cont=',cont);
end;
procedure try(i:integer);
var j:integer;
procedure erase(i:integer);
begin
c[j]:=true;l[i-j]:=true;r[i+j]:=true;
end;
begin
for j:=1 to 8 do
begin
if c[j] and l[i-j] and r[i+j] then
begin
a[i]:=j;c[j]:=false;l[i-j]:=false;
r[i+j]:=false;
if i<8 then try(i+1)
else pr;
erase(i);
end;
end;
end;
{***************************main*******************************}
begin
for i:=1 to 8 do c[i]:=true;
for i:=-7 to 7 do l[i]:=true;
for i:=2 to 16 do r[i]:true;
cont:=0;
i:=1;
try(i);
readln;
end.
用递归算法编制的程序具有结构清晰和移读性高的特点,但是也有执行效率不高的缺点.但当能够找到明显的递推公式用迭代法求解时,迭代法的效率会比递归方法高很多.还请大家根据情况来选择使用!