A voir également:
- Probleme de 8 dames
- Clé windows 8 - Guide
- Mixcraft 8 - Télécharger - Création musicale
- Internet explorer 8 - Télécharger - Navigateurs
- Windows 8 pro - Télécharger - Systèmes d'exploitation
- Exemple de mot de passe à 8 caractères - Guide
2 réponses
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;
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;
