Informatica PASCAL

Cine ma poate ajuta cu o idee la problema asta:

Un grup de n <= 10 persoane numere de la 1 la n sunt asezate pe un rand de scaune.Se stie ca intre oricare 2 persoane vecine se ivesc conflicte.

Cerinte :

1 – Afisati toate modurile posibile de rearanjare a persoanelor astfel incat intre oricare 2 persoare aflate in conflict sa stea una sau cel mult doua persoane .

2 – Creati o lista simplu inlantuita care sa contina persoanele care nu au conflicte, afisati-o , eliminati pe ultimul din lista si afisati din nou .


VA MULTUMESC!

poate sunt mai greu de cap, da tot nu intelesei ce vrea problema...

treuie sa fac cu backtraking

nui nimik ms oricum!! xD

pai daca stii ca trebuie sa faci cu backtracking, ce idee mai vrei? ca asta e ideea. faci cu backtracking...

iei la rand toate combinatiile, daca una nu e buna te intorci la pasul anterior si pui alta persoana. (adica fix backtracking clasic), iar in functia de verificare pui conditia ca 2 elemente alaturate din lista rezultata sa nu aiba conflict.

deci stiu ca trebuie cu backtraking ca mia spup profa.. dar nu mai stiu cum ( daca poate cineva sa imi scrie si mie procedura BACK... recursiva .. nu ami stiu oridinea.. si cum se punea coditia! ... nu neaparat in pascal.. si in pseudocod plz! 10x!

nu e pentru bac deci informatica pentru bac stiu dar problema asta mia pus capac ! e imposibila.. credema! incearca sa o faci sa vezi ....

sa inteleg ca nu ia dat nimeni de cap? doamne ce aiurea e...

chiar nimeni nu mai stie back???

deci!

am incercat sa rezolv cerinta 1) si mi-a ieshit :

type stiva=array[1..10] of integer;

var st,ver,poz:stiva;
m,n,j,i:integer;

procedure init(l:integer);
begin
for m:=1 to n do
begin
st[m]:=0;
poz[m]:=0;
ver[m]:=0;
end;
st[1]:=l;
poz[l]:=1;
ver[l]:=1;
end;

procedure tipar;
begin
for i:=1 to n do
write(st[i],' ');writeln;
end;

function valid(k,t:integer):boolean;
begin
valid:=false;
if

(st[k]+1<>t) and
(st[k]-1<>t) and
{(poz[i]-poz[i-1]<3) and
(poz[i]-poz[i+1]>-3) and
(poz[i]-poz[i+1]<3) and
(poz[i]-poz[i-1]>-3) and}
(ver[t]<>1) then valid:=true;
end;

procedure back(k:integer);
begin
for i:=1 to n do
begin

if k=10 then tipar
else if valid(k,i) then begin
st[k+1]:=i;
poz[i]:=k+1;
ver[i]:=1;
back(k+1);
end;

end;
end;
begin
write('N=');readln(n);

for j:=1 to n do
begin
init(j);
back(1);
end;
readln;
end.

Problema e ca nu merge bine adik imi face prima solutie si dupa se strica treaba daca ma poate ajuta cineva va rog frumos !!!