Probleme de 8 dames

procedure place_dame(t:tab;ndames : byte);
label suivant;
var i,j : byte;

begin
if (ndames = nbd+1) then
begin
nb_sol := nb_sol + 1;
Writeln('Voilà la solution N° : ' , nb_sol);
Writeln;
affiche(t,nbd);
aff2(t,nbd);
end
else
for i:=1 to nbd do
begin
for j:=1 to ndames-1 do
if ((t[j]= i) or (abs(t[j]-i) = abs(j-ndames))) then goto suivant;

t[ndames]:=i;
place_dame(t,ndames+1);

suivant : ;
end;
end;

Tu peux regarder ici : http://www.blindprod.fr.st/ dans la rubrique Pédagogie