鏁版嵁緇撴瀯絎簩绔犲～絀洪鍙婂弬鑰冪瓟妗圼7]_璺ㄨ€冪綉

澶嶄範绱у紶錛岀劍澶寸儌棰濓紵閫嗛杞昏錛屾潵璺ㄨ€冪瀛ｉ泦璁惀錛屽府浣犲鏂規(guī)硶錛屽畾鏂規(guī)錛?/span> 浜嗚В涓€涓?>

1錛庡浜庣粰瀹氱殑綰挎€ч摼琛?/span>head , 涓嬮潰鐨勭▼搴忚繃紼嬪疄鐜頒簡鎸夌粨鐐瑰€奸潪闄嶆搴忚緭鍑洪摼琛ㄤ腑鐨勬墍鏈夌粨鐐癸紝鍦ㄦ瘡嬈¤緭鍑轟竴涓粨鐐規(guī)椂錛屽氨鎶婂垰杈撳嚭鐨勭粨鐐逛粠閾捐〃涓垹鍘匯€傝鍦ㄥ垝綰垮濉笂閫傚綋鐨勫唴瀹癸紝浣夸箣鎴愪負涓€涓畬鏁寸殑紼嬪簭榪囩▼錛屾瘡涓┖妗嗗彧濉竴涓鍙ャ€?/span>

聽

銆€銆€TYPE nodeptr =^ nodetype錛?/span>

聽

銆€銆€nodetype = RECORD

聽

銆€銆€data : integer錛?/span>link : nodeptr

聽

銆€銆€END;

聽

銆€銆€VAR head : nodeptr錛?/span>

聽

銆€銆€PROCEDURE sort_output_delete (head : nodeptr);

聽

銆€銆€VAR p,q,r,s: nodeptr;

聽

銆€銆€BEGIN WHILE head <> NIL DO

聽

銆€銆€BEGIN p:= NIL 錛?/span>q:= head錛?/span>r:= q 錛?/span>s:=q^.link 錛?/span>

聽

銆€銆€WHILE s <> NIL DO

聽

銆€銆€BEGIN IF s^.data < q^.data THEN BEGIN (1)__; (2)___ END 錛?/span>

聽

銆€銆€r:= s 錛?/span> (3)___

聽

銆€銆€END錛?/span>

聽

銆€銆€write(q^.data : 5) 錛?/span>

聽

銆€銆€IF p=NIL THEN (4)___ ELSE (5)____ 錛?/span>

聽

銆€銆€dispose (q) 錛?/span>

聽

銆€銆€END錛?/span>

writeln

聽

銆€銆€END錛涖€?a target="_blank">澶嶆棪澶у 1996 涓冿紙20鍒嗭級 1995 涓€錛?/span>12鍒嗭級涓庢湰棰樼浉浼箋€?/span>

聽

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

聽

銆€銆€(1)p:=r;鈭?/span>r鎸囧悜宸ヤ綔鎸囬拡s鐨勫墠椹憋紝p鎸囧悜鏈€灝忓€肩殑鍓嶉┍銆?/span>

聽

銆€銆€(2)q:=s;鈭?/span>q鎸囧悜鏈€灝忓€肩粨鐐癸紝s鏄伐浣滄寚閽堛€?/span>

聽

銆€銆€(3)s:=s^.link鈭ュ伐浣滄寚閽堝悗縐匯€?/span>

聽

銆€銆€(4)head:=head^.next;鈭ョ涓€涓粨鐐瑰€兼渶灝忋€?/span>

聽

銆€銆€(5)p^link:=q^.link;鈭ヨ法榪囪鍒犵粨鐐癸紙鍗沖垹闄や竴緇撶偣錛夈€?/span>

聽

銆€銆€2錛庝笅闈㈠嚱鏁扮殑鍔熻兘鏄湪涓€涓寜璁塊棶棰戝害涓嶅鏈夊簭鐨勶紝甯﹀ご緇撶偣鐨勫弻鍚戦摼鐜笂媯€绱㈠叧閿€間負x鐨勭粨鐐癸紝瀵硅緇撶偣璁塊棶棰戝害璁℃暟錛屽茍緇存姢璇ラ摼鐜湁搴忋€傝嫢鏈壘鍒幫紝鍒欐彃鍏ヨ緇撶偣銆傛墍鏈夌粨鐐圭殑棰戝害鍩熷垵鍊煎湪寤鴻〃鏃墮兘涓洪浂銆傝灝嗙▼搴忎腑鍥涘絀虹己琛ュ啓瀹屾暣銆?/span>

聽

銆€銆€TYPE

聽

銆€銆€link=^node

聽

銆€銆€node=RECORD

聽

銆€銆€key:char; freq:integer; pre,next:link;

聽

銆€銆€END;

聽

銆€銆€VAR l:link;

聽

銆€銆€FUNCTION loc(l:link;x:char):link;

聽

銆€銆€VAR p,q:link;

銆€BEGIN

聽

銆€銆€p:=l^.next; 錛?/span>1錛?/span>_錛?/span>

聽

銆€銆€WHILE p^.key<>x DO p:=p^.next;

聽

銆€銆€IF p=l THEN [ new(q); q^.key:=x; q^.freq:=0 ]

聽

銆€銆€ELSE {鎵懼埌}

聽

銆€銆€[ p^.freq:=p^.freq+1; q:=p; 錛?/span>2錛?/span>______錛?/span>

聽

銆€銆€WHILE q^.freq>p^.pre^.freq DO p:=p^.pre;

聽

銆€銆€IF p<>q THEN [ 錛?/span>3錛?/span>______ ]

聽

銆€銆€]錛?/span>

聽

銆€銆€IF 錛?/span>4錛?/span>_ THEN [q^.next:=p, q^.pre;=p^.pre; p^.pre^.next:=q; p^.pre:=q]

聽

銆€銆€return(q);

聽

銆€銆€END;銆?a target="_blank">鍖椾含宸ヤ笟澶у 1999 浜?/span> (12鍒?/span>)銆?/span>

聽

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

聽

銆€銆€(1) l^.key:=x;鈭ュご緇撶偣l榪欐椂璧風(fēng)洃瑙嗗摠浣滅敤銆?/span>

聽

銆€銆€(2) l^.freq:=p^.freq 鈭ュご緇撶偣璧風(fēng)洃瑙嗗摠浣滅敤銆?/span>

聽

銆€銆€(3) q->pre->next=q->next; q->next->pre=q->pre; 鈭ュ厛灝?/span>q緇撶偣浠庨摼琛ㄤ笂鎽樹笅銆?/span>

聽

銆€銆€q^.next:=p; q^.pre:=p^.pre; p^.pre->next:=q; p^.pre:=q; 鈭ョ粨鐐?/span>q鎻掑叆緇撶偣p鍓嶃€?/span>

聽

銆€銆€(4) q^.freq=0 鈭ラ摼琛ㄤ腑鏃犲€間負x鐨勭粨鐐癸紝灝嗘柊寤虹粨鐐規(guī)彃鍏ュ埌閾捐〃鏈€鍚庯紙澶寸粨鐐瑰墠錛夈€?/span>