backtracking.MyForum.ro :: problema backtracking generalizat

backtracking.MyForum.ro
Fa-ti si tu propriul forum, pe www.myforum.ro!

FAQ

Cautare

Membri

Grupuri

Inregistrare

Profil

Mesaje private

Autentificare

problema backtracking generalizat

Pagina de start a forumului backtracking.MyForum.ro -> Teme pentru acasa

Subiectul anterior :: Subiectul urmator

Autor

Mesaj

Moshu
Junior
Junior

Data inscrierii: 08/Noi/2007
Mesaje: 6
Localitate: Ploiesti

Trimis: 29/11/2007 10:11 Titlul subiectului: problema backtracking generalizat

Cod:

Type matrice=array[1..8,1..10] of byte;
sir=array[1..4] of shortint;
const lab:matrice=((0,0,0,0,0,1,0,1,0,0),(0,1,1,1,0,1,0,1,0,0),
(0,0,1,0,1,1,0,1,1,1),(0,0,1,0,1,0,1,0,0,0),
(0,0,0,1,1,0,0,0,0,0),(0,1,1,1,1,1,1,1,0,0),
(1,1,0,0,1,0,0,0,0,0),(0,0,0,0,1,0,0,0,0,0));
dx:sir=(-1,0,1,0);
dy:sir=(0,1,0,-1);
var x0,y0:byte;n,m:byte;t:matrice;
procedure scrie;
var i,j:byte;
begin
for i:=1 to 8 do
begin
for j:=1 to 10 do
write(t[i,j],' ');
writeln;
end;
writeln
end;
Procedure traseu(I,j,pas:byte);
var ii,jj:shortint; k:byte;
cond:boolean;
begin
For k:=1 to 4 do
begin
ii:=i+dx[k];
jj:=j+dy[k];
cond:=(ii in[1..n])and(jj in[1..m])and(lab[ii,jj]=1)and(t[ii,jj]=0);
if cond then begin
t[ii,jj]:=pas;
if (ii in[1,n])or(jj in[1,m]) then scrie;
traseu(ii,jj,pas+1);
t[ii,jj]:=0;
end;
end;
end;
begin
write('x0=');readln(x0);n:=8;m:=10;
write('y0=');readln(y0);
t[x0,y0]:=1;
traseu(x0,y0,2);
readln
end.

Sus

Afiseaza mesajele pentru a le previzualiza:

	Pagina de start a forumului backtracking.MyForum.ro -> Teme pentru acasa	Ora este GMT + 3 ore
Pagina 1 din 1

Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum