鏁版嵁緇撴瀯絎竷绔犲～絀洪[9]_璺ㄨ€冪綉

1錛庡亣璁劇粰瀹氱殑鏈夊悜鍥炬槸鐢ㄩ偦鎺ヨ〃琛ㄧず錛屼綔涓鴻緭鍏ョ殑鏄浘涓《鐐逛釜鏁?/span>n鍜岃竟鐨勪釜鏁?/span>m, 浠ュ強(qiáng)鍥劇殑m鏉¤竟銆傚湪涓嬮潰鐨勭▼搴忎腑錛屾垜浠敤readdata紼嬪簭榪囩▼杈撳叆鍥劇殑淇℃伅錛屽茍寤虹珛璇ュ浘鐨勯偦鎺ヨ〃錛涘埄鐢?/span>topol紼嬪簭榪囩▼鑾峰緱鍥句腑欏剁偣鐨勪竴涓嫇鎵戝簭鍒椼€?/span>
銆€銆€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 (鈥瞚nput vertex number n= 鈥?; readln (n) ;
銆€銆€write (鈥瞚nput edge number m= 鈥?; readln(m) ;
銆€銆€FOR i:=1 TO n DO BEGIN ch[i].count:= 0; ch[i].head:=NIL END;
銆€銆€writeln(鈥瞚nput 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 ;