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

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

1. 宸茬粰濡備笅鍏充簬鍗曢摼琛ㄧ殑綾誨瀷璇存槑錛?/span>

聽

銆€銆€TYPE

聽

銆€銆€list=^node ;

聽

銆€銆€node=RECORD

聽

銆€銆€data: integer; next: list;

聽

銆€銆€END;

聽

銆€銆€浠ヤ笅紼嬪簭閲囩敤閾捐〃鍚堝茍鐨勬柟娉曪紝灝嗕袱涓凡鎺掑簭鐨勫崟閾捐〃鍚堝茍鎴愪竴涓摼琛ㄨ€屼笉鏀瑰彉鍏舵帓搴忔€э紙鍗囧簭錛夛紝榪欓噷涓ら摼琛ㄧ殑澶存寚閽堝垎鍒負(fù)p鍜?/span>q.

聽

銆€銆€PROCEDURE mergelink(VAR p,q:list):

聽

銆€銆€VAR h,r: list;

聽

銆€銆€BEGIN

聽

銆€銆€錛?/span>1錛?/span>______

聽

銆€銆€h^.next:= NIL; r:=h;

聽

銆€銆€WHILE((p<>NIL) AND (q<>NIL)) DO

聽

銆€銆€IF (p^.data<=q^.data)

聽

銆€銆€THEN BEGIN 錛?/span>2錛?/span>___錛?/span> r:=p; p:=p^.next錛?/span> END

聽

銆€銆€ELSE BEGIN 錛?/span>3錛?/span>____錛?/span> r:=q; q:=q^.next; END;

聽

銆€銆€IF (p=NIL) THEN r^.next:=q;

聽

銆€銆€錛?/span>4錛?/span>__錛?/span>

聽

銆€銆€p:=h^.next; dispose(h);

聽

銆€銆€END;銆?a target="_blank">鍘﹂棬澶у 2000 涓夈€?/span>2 錛?/span>8鍒嗭級銆?/span>

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

聽

銆€銆€錛?/span>1錛?/span>new(h);鈭ョ敓鎴愬ご緇撶偣錛屼互渚夸簬鎿嶄綔銆?/span>

聽

銆€銆€錛?/span>2錛?/span>r^.next:=p;

聽

銆€銆€錛?/span>3錛?/span>r^.next:=q;

聽

銆€銆€錛?/span>4錛?/span>IF (q=NIL) THEN r^.next:=p;

聽

銆€銆€2錛庡亣璁鵑摼琛?/span>p鍜岄摼琛?/span>q涓殑緇撶偣鍊奸兘鏄暣鏁?/span>,涓旀寜緇撶偣鍊肩殑閫掑嬈″簭閾炬帴璧鋒潵鐨勫甫琛ㄥご緇撶偣鐨勭幆褰㈤摼琛ㄣ€傚悇閾捐〃鐨勮〃澶寸粨鐐圭殑鍊間負(fù)max,涓旈摼琛ㄤ腑鍏朵粬緇撶偣鐨勫€奸兘灝忎簬max錛屽湪紼嬪簭涓彇max涓?/span>9999銆傚湪鍚勪釜閾捐〃涓紝姣忎釜緇撶偣鐨勫€煎悇涓嶇浉鍚岋紝浣嗛摼琛?/span>p鍜岄摼琛?/span>q鍙兘鏈夊€肩浉鍚岀殑緇撶偣錛堣〃澶寸粨鐐歸櫎澶栵級銆備笅闈㈢殑紼嬪簭灝嗛摼琛?/span>q鍚堝茍鍒伴摼琛?/span>p涓紝浣垮緱鍚堝茍鍚庣殑閾捐〃鏄寜緇撶偣鍊奸€掑嬈″簭閾炬帴璧鋒潵鐨勫甫琛ㄥご緇撶偣鐨勭幆褰㈤摼琛紝涓旈摼琛ㄤ腑鍚勪釜緇撶偣鐨勫€煎悇涓嶇浉鍚屻€傝鍦ㄥ垝綰垮濉笂閫傚綋鍐呭錛屾瘡涓鍙～涓€涓鍙ユ垨涓€涓〃杈懼紡錛岄摼琛ㄧ殑緇撶偣綾誨瀷濡備笅

聽

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

聽

銆€銆€nodetype=RECORD

聽

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

聽

銆€銆€END錛?/span>

聽

銆€銆€CONST max=9999;

聽

銆€銆€PROCEDURE merge(VAR p:nodeptr;q:nodeptr);

聽

銆€銆€VAR r,s: nodeptr;

聽

銆€銆€BEGIN

聽

銆€銆€r:=p;

聽

銆€銆€WHILE (A)___ DO

銆€BEGIN

聽

銆€銆€WHILE r^.link^.data<q^.link^.data DO (B)___;

聽

銆€銆€IF r^.link^.data>q^.link^.data

聽

銆€銆€THEN BEGIN s:=(C)_; (D)_:=s^.link; s^.link:=(E)_; (F)_ _:=s; (G)_; END

聽

銆€銆€ELSE BEGIN (H)__; s:=q^.link; (I)__; dispose(s) END

聽

銆€銆€END;

聽

銆€銆€dispose(q)

聽

銆€銆€END;銆?a target="_blank">澶嶆棪澶у 1997 浜旓紙18鍒嗭級銆?/span>

聽

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

聽

銆€銆€A: r^.link^.data<>max AND q^.link^.data<>max

聽

銆€銆€B: r:=r^.link

聽

銆€銆€C: q^.link

聽

銆€銆€D: q^.link

聽

銆€銆€E: r^.link

聽

銆€銆€F: r^.link

聽

銆€銆€G: r:=s錛堟垨r:= r^.link錛?/span>

聽

銆€銆€H: r:=r^.link

聽

銆€銆€I: q^.link:=s^.link