Cod sursa(job #115718)

Utilizator ProtomanAndrei Purice Protoman Data 16 decembrie 2007 20:59:43
Problema Dusman Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.24 kb
var f1,f2:text;
    n,k,m,x,y,nr,i:longint;
    mr,u:array[1..1000] of longint;
    a:array[1..1000,1..1000] of integer;

procedure back(x:longint);
var i:longint;
begin
        if x=n+1 then
        begin
                inc(nr);
                if nr=k then
                begin
                        for i:=1 to n-1 do
                                write(f2,u[i],' ');
                        writeln(f2,u[n]);
                        close(f1);
                        close(f2);
                        halt;
                end;
        end
        else
                for i:=1 to n do
                        if (a[u[x-1],i]=0)and(mr[i]=0) then
                        begin
                                mr[i]:=1;
                                u[x]:=i;
                                back(x+1);
                                mr[i]:=0;
                        end;
end;

begin
        assign(f1,'dusman.in');
        reset(f1);
        assign(f2,'dusman.out');
        rewrite(f2);
        read(f1,n,k,m);
        for i:=1 to m do
        begin
                read(f1,x,y);
                a[x,y]:=1;
                a[y,x]:=1;
        end;
        back(1);
        close(f1);
        close(f2);
end.