PASCAL高斯八皇后

抄自网络搜索内容

program eightqueens;
var
x:array[1..8] of integer;
a,b,c:array[-7..16] of boolean;
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]
then begin
x:=j;
a[j]:=false;
b[i+j]:=false;
c[i-j]:=false;
if i<8 then try(i+1)
else print;
a[j]:=true;
b[i+j]:=true;
c[i-j]:=true
end
end;
begin
for i:=-7 to 16 do
begin
a:=true;
b:=true;
c:=true
end;
try(1);
end.
现在循环从 i=1 ,j:=1 to 8 do 开始 此时 计算机检测到 i=1 j=1 简化为（1，1）为空，占用该位置并令该位置对应的斜线和水平方向的位置为 false ，然后程序就开始去执行try（2），注意此时计算机在i=1 这层仅仅走拉一个循环（j=1）就跳到拉i=2 这层里此时计算机从j：=1 to 8 do 又开始循环，排除 j=1，j=2 得到 （2，3）注意计算机在层里也只是走拉3（j