JEU DES 8 REINES

Commentaire de barbichette le 01/05/2009 14:09:48

je reviens après 4 ans... pour ajouter un algorithme très rapide et très simple pour trouver une solution à se casse-tête.

Pour plus d'information sur cet algorithme, consultez la page de wikipédia :
http://fr.wikipedia.org/wiki/Huit_dames


procedure TForm1.Button1Click(Sender: TObject);
var
n,i,j:integer;
reste:integer;
place:array of integer;
begin
n:=spinedit1.Value;
if n<4 then exit;
setlength(place,n);
reste:=n mod 12;
case reste of
3,9:
  begin
   for i:=1 to n div 2-1 do place[i-1]:=i*2+2;
   for i:=2 to (n-1) div 2 do place[n div 2+i-2]:=i*2+1;
   place[n div 2-1]:=2;
   place[n-2]:=1;
   place[n-1]:=3;
  end;
2:
  begin
   for i:=0 to n div 2-1 do place[i]:=i*2+2;
   for i:=3 to (n-1) div 2 do place[n div 2+i-1]:=i*2+1;
   place[n div 2+0]:=3;
   place[n div 2+1]:=1;
   place[n-1]:=5;
  end;
8:
  begin
   for i:=0 to n div 2-1 do place[i]:=i*2+2;
   for i:=0 to (n-1) div 2 do
    if i and 1=0 then place[n div 2+i]:=i*2+3
                 else place[n div 2+i]:=i*2-1;
  end;
else
  for i:=0 to n div 2-1 do place[i]:=i*2+2;
  for i:=0 to (n-1) div 2 do place[n div 2+i]:=i*2+1;
end;


image1.Canvas.Brush.Color:=clwhite;
for j:=0 to n-1 do
for i:=0 to n-1 do
  image1.Canvas.Rectangle(image1.Width*i div n,image1.Height*j div n,image1.Width*(i+1) div n,image1.Height*(j+1) div n);

image1.Canvas.Brush.Color:=clred;
for i:=1 to n do
   image1.Canvas.Rectangle(image1.Width*(i-1) div n,image1.Height*(place[i-1]-1) div n,image1.Width*i div n,image1.Height*place[i-1] div n);
end;