1 lời giải - Bài 8 quân hậu

Program TamQuanHau;
Uses Crt;
Const
  Hau='Q';
  ov='#';
Var
  x: array[1..8] of Integer;
  a: array[1..8] of Boolean;
  b: array[2..16] of Boolean;
  c: array[-7..7] of Boolean;
  i,j: Integer;
  antoan: Boolean;
Begin
  clrscr;
  for i:=1 to 8 do a[i]:=true;
  for i:=2 to 16 do b[i]:=true;
  for i:=-7 to 7 do c[i]:=true;
  j:=1; i:=0;
  repeat
    repeat
      i:=i+1;
      antoan:=a[i] and b[i+j] and c[i-j];
    until antoan or (i=8);
    if antoan then
      begin
        x[j]:=i;
        a[i]:=false; b[i+j]:=false; c[i-j]:=false;
        j:= j+1; i:= 0
      end
    else
      begin
        j:=j-1;
        if j>=1 then
          begin
            i:=x[j];
            a[i]:=true; b[i+j]:=true; c[i-j]:=true;
            if i=8 then
              begin
                j:=j-1;
                if j>=1 then
                  begin
                    i:=x[j];
                    a[i]:=true; b[i+j]:=true; c[i-j]:=true
                  end
              end
          end
      end
  until (j>8) or (j<1);
  if j<1 then writeln('Khong co loi giai!')
  else
    for i:=1 to 8 do
      begin
        for j:=1 to 8 do
          if x[j]=i then write(Hau) else write(ov);
        writeln;
      end;
  readln;
end.