Probleme de 8 dames Fermé

Question

Bonjour,
Est ce qu'il ya quelqu'un qui connait la solution: algorithme ou Pascal du problème de 8 dames. Merci

Aide · Accepted Answer

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;

Utilisateur anonyme · Answer

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

Probleme de 8 dames

2 réponses

Discussions similaires