Pentru a descarca referate trebuie sa fii membru eCursuri.ro
Intra in contul tau sau inregistreaza-te GRATUIT (dreapta sus)
Metoda Backtaking
Enunt:Sa se genereze toate permutarile{1,2,…,n}.
Program permutari;
Uses crt;
Const max=25;
Type vector:array[1..25] of integer;
Var x:vector;
n:integer;
procedure citire;
begin
clrscr;
write(‘n=’);readln(n);
end;
procedure init(k:integer);
begin
x[k]:=0;
end;
function exista(k:integer):Boolean;
begin
exista:=(x[k]
end;
function cont(k:integer):Boolean;
var i:integer;
begin
cont:=true;
for i:=1 to k-1 do
if x[k]=x[i] then
cont:=false;
end;
function solutie(k:integer):Boolean;
begin
solutie;=(k=n);
end;
procedure tipar(k:integer);
Pentru a descarca referate trebuie sa fii membru eCursuri.ro
Intra in contul tau sau inregistreaza-te GRATUIT (dreapta sus)
0 comentarii
Adauga comentariu
Pentru a adauga comentarii trebuie sa fii membru eCursuri.ro
Intra in contul tau sau inregistreaza-te GRATUIT (dreapta sus)
