 BluePink XHost |
Servere virtuale de la 20 eur / luna. Servere dedicate de la 100 eur / luna - servicii de administrare si monitorizare incluse. Colocare servere si echipamente de la 75 eur / luna. Pentru detalii accesati site-ul BluePink. |
|
BluePink XHost |
Servere virtuale de la 20 eur / luna. Servere dedicate de la 100 eur / luna - servicii de administrare si monitorizare incluse. Colocare servere si echipamente de la 75 eur / luna. Pentru detalii accesati site-ul BluePink. |
Backtracking
Program aranjamente;
const nmax=25;
type vector=array[1..nmax] of integer
var x:vector; n:integer;
Procedure CITIRE;
begin
write('n=');readln(n);
end;
Procedure INIT(k:integer);
begin
x[k]:=0;
end;
Procedure EXISTA(k:integer):boolean;
begin
EXISTA:=(x[k]'<'n);
end;
Function CONT(k:integer):boolean;
var i:integer;
begin
CONT:=TRUE;
for i:=1 to k-1 do
if x[i]=x[k] then
CONT:=FALSE;
end;
Function SOLUTIE(k:integer):boolean;
begin
SOLUTIE:=(k=n);
end;
Procedure TIPAR(k:integer);
var i:integer;
begin
for i:=1 to k do
write(x[i]:3);
end;
Procedure BKT;
var k:integer;
begin
k:=1;
INIT(k);
while k'>'0 do
if EXISTA(k) then
begin
x[k]:=x[k]+1;
if CONT(k) then
if SOLUTIE(k) then
TIPAR(k)
else
begin
k:=k+1;
INIT(k);
end;
end
else
k:=k-1;
end;
begin{p.p}
CITIRE;
BKT;
readln;
end.