PASCAL八皇后问题解题报告.docVIP

八皇后问题，是一个古老而著名的问题，是回溯算法的典型例题。该问题是十九世纪著名的数学家高斯1850年提出：在8X8格的国际象棋上摆放八个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上，问有多少种摆法。 高斯认为有76种方案。1854年在柏林的象棋杂志上不同的作者发表了40种不同的解，后来有人用图论的方法解出92种结果。计算机发明后，有多种方法可以解决此问题。 现求n皇后的解法。 本题可以一个二维数组，放了皇后用1表示，没放皇后用0表示。 然后用深度优先搜索设计程序。 程序如下： var a:array[1..100,1..100]of integer; h,x,y:array[-100..100]of boolean; i,k,n,f,m:integer; procedure t(i:integer); //穷举第i个皇后摆放的列 var j:integer; //不可定为全程变量 begin for j:=1 to n do if h[j] and x[i+j] and y[i-j] then begin a[i,j]:=1; h[j]:=false; x[i+j]:=false; y[i-j]:=false; if in then t(i+1) else begin inc(f); for k:=1 to n do begin for m:=1 to n do if a[k,m]=1 then write(*) else write(-); writeln; end; writeln; end; h[j]:=true; //回溯 x[i+j]:=true; y[i-j]:=true; a[i,j]:=0; end; end; begin assign(input,nhuanghou.in); assign(output,nhuanghou.out); reset(input); rewrite(output); readln(n); fillchar(h,sizeof(h),true); fillchar(y,sizeof(y),true); fillchar(x,sizeof(x),true); t(1); write(f); close(input); close(output); end. 后来，我又把它压缩成了一维数组。 程序如下： var a:array[1..100]of integer; h,x,y:array[-100..100]of boolean; i,j,k,n,f,m:integer; procedure t(i:integer); begin for j:=1 to n do if h[j] and x[i+j] and y[i-j] then begin a[i]:=j; h[j]:=false; x[i+j]:=false; y[i-j]:=false; if in then t(i+1) else begin inc(f); for k:=1 to n do begin