0.回溯法【信息技术】.docVIP

例15：N皇后问题 在N*N的棋盘上放置N个皇后而彼此不受攻击（即在棋盘的任一行，任一列和任一对角线上不能放置2个皇后），编程求解所有的摆放方法。 分析： 由于皇后的摆放位置不能通过某种公式来确定，因此对于每个皇后的摆放位置都要进行试探和纠正，这就是“回溯”的思想。在N个皇后未放置完成前，摆放第I个皇后和第I+1个皇后的试探方法是相同的，因此完全可以采用递归的方法来处理。 下面是放置第I个皇后的的递归算法： Procedure Try(I:integer)； {搜索第I行皇后的位置} var j:integer; begin if I=n+1 then 输出方案； for j:=1 to n do if 皇后能放在第I行第J列的位置 then begin 放置第I个皇后； 对放置皇后的位置进行标记； Try（I+1） 对放置皇后的位置释放标记； End; End; N皇后问题的递归算法的程序如下： program N_Queens; const MaxN = 100; {最多皇后数} var A:array [1..MaxN] of Boolean; {竖线被控制标记} B:array [2..MaxN * 2] of Boolean; {左上到右下斜线被控制标记} C:array [1–MaxN..MaxN–1] of Boolean;{左下到右上斜线被控制标记} X: array [1 .. MaxN] of Integer; {记录皇后的解} Total: Longint; {解的总数} N: Integer; {皇后个数} procedure Out; {输出方案} var I: Integer; begin Inc(Total); Write(Total: 3, ‘:’); for I := 1 to N do Write(X[I]: 3); Writeln; end; procedure Try(I: Integer); {搜索第I个皇后的可行位置} var J: Integer; begin if I = N + 1 then Out; {N个皇后都放置完毕，则输出解} for J := 1 to N do if A[J] and B[J + I] and C[J – I] then begin X[I] := J; A[J] := False; B[J + I] := False; C[J – I] := False; Try(I + 1); {搜索下一皇后的位置} A[J] := True; B[J + I] := True; C[J – I] := True; end; end; begin Write(‘Queens Numbers = ‘); Readln(N); FillChar(A, Sizeof(A), True); FillChar(B, Sizeof(B), True); FillChar(C, Sizeof(C), True); Try(1); Writeln(‘Total = ‘, Total); end. N皇后问题的非递归算法的程序： program N_Queens; const MaxN = 100; {最多皇后数} var A:array [1..MaxN] of Boolean; {竖线被控制标记} B:array [2..MaxN * 2] of Boolean; {左上到右下斜线被控制标记} C:array [1–MaxN..MaxN–1] of Boolean;{左下到右上斜线被控制标记} X: array [1 .. MaxN] of Integer; {记录皇后的解} Total: Longint; {解的总数} N: Integer; {皇后个数 procedure Out; {输出方案} var I: Integer; begin Inc(Total); Write(Total: 3, ‘:’);