Cod sursa(job #115445)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 16 decembrie 2007 12:42:56
Problema Dusman Scor 100
Compilator fpc Status done
Runda preONI 2008, Runda 2, Clasele 5-8 Marime 1.04 kb
var v,l:array[0..2001]of longint;
    d:array[0..2000,0..2000]of longint;
    n,i,j,k,m,a,b,s:longint;
    f:text;
procedure dusman(p:longint);
var x:longint;
begin
   x:=0;
   repeat
   x:=x+1;
   if(l[x]=0)and(p<n)and(d[x,v[p-1]]=0)then begin l[x]:=1;
                                                  v[p]:=x;
                                                  dusman(p+1);
                                                  l[x]:=0;
                                            end
                                       else
   if(l[x]=0)and(p=n)and(d[x,v[p-1]]=0)then begin s:=s+1;
                                                  v[p]:=x;
                                            end;
   until(x=n)or(s=k);
end;
begin
   assign(f,'dusman.in');
   reset(f);
   read(f,n,k,m);
   for i:=1 to m do
   begin
   read(f,a,b);
   d[a,b]:=1;
   d[b,a]:=1;
   end;
   v[0]:=0;
   close(f);
   dusman(1);
   assign(f,'dusman.out');
   rewrite(f);
   for i:=1 to n do
   write(f,v[i],' ');
   writeln(f);
   close(f);
end.