1．假设给定的有向图是用邻接表表示，作为输入的是图中顶点个数n和边的个数m, 以及图的m条边。在下面的程序中，我们用readdata程序过程输入图的信息，并建立该图的邻接表；利用topol程序过程获得图中顶点的一个拓扑序列。
　　PROGRAM topol_order(input , output) ;
　　CONST maxn=20 ;
　　TYPE nodeptr=^nltype ;
　　nltype=RECORD num : integer ; link : nodeptr END ;
　　chtype=RECORD count : integer ; head : nodeptr END ;
　　VAR ch : ARRAY [1 .. maxn] OF chtype ; m , n , top : integer ;
　　PROCEDURE readdata ;
　　VAR i , j , u , v : integer ; p : nodeptr ;
　　BEGIN
　　write (′input vertex number n= ′); readln (n) ;
　　write (′input edge number m= ′); readln(m) ;
　　FOR i:=1 TO n DO BEGIN ch[i].count:= 0; ch[i].head:=NIL END;
　　writeln(′input edges :′);
　　FOR j:= 1 TO m DO
　　BEGIN write( j :3 , ′: ′) ; readln( u , v ) ; new( p ) ;
　　ch[v].count:=ch[v].count+1; p^.num:=v; (1) ___ ; (2) __; END
　　END ;
　　PROCEDURE topol ;
　　VAR i, j, k: integer; t: nodeptr ;
　　BEGIN
　　top:= 0 ;
　　FOR i := 1 TO n DO
　　IF ch[i].count=0 THEN BEGIN ch[i].count := top ;top := i END;
　　i:= 0 ;
　　WHILE (3) ___ DO
　　BEGIN (4) __; (5) __ ; write(j : 5) ;i:= i + 1 ;t:=ch[j].head ;