Problème de huit reines (dames)

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Problème de huit reines (dames)

Message par haiethem le Sam 5 Mai - 10:59

procedure place_dame(t:tab;ndames:integer);
label suivant,1;
var i,j:integer;
begin
if (ndames=nbd+1) then
begin
s:=s+1;
affiche(t,nbd);
end;
for i:=1 to nbd do
begin
for j:= 1 to ndames 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;

======================================================

procedure affiche(t:tab;nbd:integer);
var i,j:integer;
begin
for i:=1 to nbd do
begin
for j:= 1 to nbd do
if (t[i]=j) then
write(f,'X ')
else write(f,'0 ');
writeln(f);
end;
writeln(f,'solution : ',s);
end;

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum