Cod sursa(job #1612539)

Utilizator mirelabocsabocsa mirela mirelabocsa Data 24 februarie 2016 21:52:38
Problema Sortare topologica Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.83 kb
program mire;
var a:array of array of longint;
    f,g:text;
    n,m,nr,j:longint;
   d:array of longint;
   viz:array of 0..1;
procedure cit;
var i,j,x,y:longint;
begin
   assign(f,'sortaret.in'); reset(f);
    assign(g,'sortaret.out'); rewrite(g);
    readln(f,n,m);
   setlength(a,n+1,n+1);
   setlength(d,n+1);
    setlength(viz,n+1);
   for i:=1 to m do
     begin
        read(f,x,y);
        inc(a[x,0]);
        setlength(a[x],a[x,0]+1);
        a[x,a[x,0]]:=y;
     end;
  close(f);
end;
procedure sort(nod:longint);
var i:integer;
begin
  viz[nod]:=1;
  for i:=1 to a[nod,0] do
    if viz[a[nod,i]]=0 then
      sort(a[nod,i]);
  dec(nr);
  d[nr]:=nod;
end;
begin
  cit;
  nr:=n+1;
  for j:=1 to n do
    if viz[j]=0 then
      sort(j);
   for j:=1 to n do
     write(g,d[j],' ');
   close(g);
end.