回溯算法讲解..doc

回溯算法 回溯算法与递归算法实现方法完全相同，所用的自定义过程或函数几乎完全相同，只是在我们对它的理解以及这些函数/过程运行时有所不同。它的基本思想是：在搜索过程中，当探索到某一步时，发现原先的选择达不到目标，就退回到上一步重新选择。它主要用来解决一些要经过许多步骤才能完成的，而每个步骤都有若干种可能的分支，为了完成这一过程，需要遵守某些规则，但这些规则又无法用数学公式来描述的一类问题。回溯的实现有递归和非递归两种方法。 即任意两个皇后都不能处于同一行、同一列或同一斜线上uses crt; var a:array[1..8] of byte; {a数组用来存放8个皇后在棋盘中的位置} {第一个元素记录第一个皇后在第一行中的位置,第二个元素记录第2个皇后在第二行中的位置..以此类推}t:integer; {t用来存放答案数目}procedure qu(n:byte); var?? l,k:integer; {l表示行,k表示列}b:boolean; begin ????if n=9 then{如果8个皇后的位置都排好, (出口)}????begin?????? ??t:=t+1;{统计方法数}????????writeln(t);???????? for k:=1 to 8 do {输出8个皇后在棋盘中的状态}????????begin ???????????? for l:=1 to 8 do ???????????????? if (a[k]l) then write(.:3) else write(Q:3); ???????????? writeln;???????? end;???????? writeln; ??????? ? readln;{暂停} ???? end????else???? begin {}???????? for k:=1 to 8 do {检索当前皇后应在一列?逐行检索,每一个皇后在每一行中应占的列}????????begin ???????????? b:=true; ???????????? for l:=1 to n-1 do???????????? {逐行检索已确定的皇后的位置,如果当前试探列k与前面已确定的n-1个皇后冲突,作上标志 b=false(则检下一列)}???????????????? ????if (a[l]=k) or (abs(a[l]-k)=abs(l-n)) then b:=false; ??? ???{(a[l]=k) 判断是否同列.(abs(a[l]-k)=abs(l-n)判断是否在斜线上}{abs(a[l]-k)=abs(l-n),如果:列-列=行-行,则在斜线上}???????????? if b then {若b=true,则该列k,不与前面的皇后冲突} begin ???????????????? a[n]:=k; {记录本行n,皇后应占的位置} qu(n+1);{探索下一位皇后} ???????????? end; ???????? end; ???? end;{}end; begin ???? clrscr;{清屏}???? t:=0; ????qu(1);{ 开始找第一位皇后}???? writeln;???? writeln( total ,T,);{输出排列的总方式}???? readln;end. var　　x:array[1..8] of integer; {当前8个皇后所摆的方案}　　a,b,c:array[-7..16] of boolean; {分别是列，对角线，反对角线}{为什么是-7？}　　i:integer;　procedure print; {打印本次方案}　　var k:integer;　　begin　　　for k:=1 to 8 do write(x[k]:4);　　　writeln;　　end;　procedure try(i:integer); {使用回溯法递归求解，试遍所有的情况，是一种递归枚举}　　var j:integer;　　begin　　　for j:=1 to 8 do　　　　if a[j] and b[i+j] and c[i-j] {若(i,j) 可放}　　　　　then begin　　 x[i]:=j; {则第i行就放在第j列}　　 a[j]: