Problème de huit reines (dames)

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 : 419
Points : 14470
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 ne pouvez pas répondre aux sujets dans ce forum