Pagini recente » Joc pe grid | Cod sursa (job #2990944) | Cod sursa (job #946746) | Cod sursa (job #1233866) | Cod sursa (job #153432)
Cod sursa(job #153432)
program sort_top;
type pnod=^nod;
nod=record
i:1..50000;
urm:pnod;
end;
var a:array[1..50000]of pnod;
n,m,i,j,timp:longint;
d,f:array[1..50000]of 1..50000;
s:array[1..50000]of 0..1;
g:text;
p,q:pnod;
procedure citire;
var f:text;
p:pnod;
x,y:1..50000;
begin
assign(f,'sortaret.in'); reset(f);
read(f,n,m);
for i:=1 to m do
begin
read(f,x,y);
new(p);p^.i:=y; p^.urm:=a[x]; a[x]:=p;
end;
close(f);
end;
procedure viz(i:integer);
var p:pnod;
begin
s[i]:=1; inc(timp);
p:=a[i];
while p<>nil do
begin
if s[p^.i]=0 then viz(p^.i);
p:=p^.urm;
end;
inc(timp);
inc(j);
d[j]:=i;
f[i]:=timp;
end;
procedure adancime;
var i:longint;
begin
for i:=1 to n do
if s[i]=0 then viz(i);
end;
begin {pp}
citire;
adancime;
assign(g,'sortaret.out'); rewrite(g);
for i:=n downto 1 do write(g,d[i],' ');
close(g);
end.