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

聽1. 璇峰湪涓嬪垪綆楁硶鐨勬í綰夸笂濉叆閫傚綋鐨勮鍙ャ€傘€?a target="_blank">娓呭崕澶у 1994 浜?/span> 錛?/span>15鍒嗭級銆?/span>

聽

銆€銆€FUNCTION inclusion(ha,hb:linklisttp):boolean;

聽

銆€銆€{浠?/span>ha鍜?/span>hb涓哄ご鎸囬拡鐨勫崟閾捐〃鍒嗗埆琛ㄧず鏈夊簭琛?/span>A鍜?/span>B錛屾湰綆楁硶鍒ゅ埆琛?/span>A鏄惁鍖呭惈鍦ㄨ〃B鍐咃紝鑻ユ槸錛屽垯榪斿洖鈥?/span>true鈥濓紝鍚﹀垯榪斿洖鈥?/span>false鈥?/span>}

聽

銆€銆€BEGIN

聽

銆€銆€pa:=ha^.next; pb:=hb^.next; 錛?/span>1錛?/span> ;

聽

銆€銆€WHILE錛?/span>2錛?/span> DO

聽

銆€銆€IF pa^.data=pb^.data THEN錛?/span>3錛?/span> ELSE錛?/span>4錛?/span> ;

聽

銆€銆€錛?/span>5錛?/span>

聽

銆€銆€END;

聽

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

聽

銆€銆€(1) IF pa=NIL THEN return(true);

聽

銆€銆€(2) pb<>NIL AND pa^.data>=pb^.data

聽

銆€銆€(3) return(inclusion(pa,pb));

聽

銆€銆€(4) pb:=pb^.next;

聽

銆€銆€(5) return(false);

銆€2錛庡畬鍠勭畻娉曪細宸茬煡鍗曢摼琛ㄧ粨鐐圭被鍨嬩負錛?/span>

聽

銆€銆€TYPE ptr=^node錛?/span>

聽

銆€銆€node=RECORD

聽

銆€銆€data錛?/span>integer錛?/span> next錛?/span>ptr

聽

銆€銆€END錛?/span>

聽

銆€銆€榪囩▼create寤虹珛浠?/span>head涓哄ご鎸囬拡鐨勫崟閾捐〃銆?/span>

聽

銆€銆€PROCEDURE create ( (1) )錛?/span>

聽

銆€銆€VAR p,q錛?/span>ptr錛?/span> k錛?/span>integer錛?/span>

聽

銆€銆€BEGIN

聽

銆€銆€new錛?/span>head錛夛紱 q:=head錛?/span>read錛?/span>k錛夛紱

聽

銆€銆€WHILE k>0 DO

聽

銆€銆€BEGIN

聽

銆€銆€(2); (3); (4); (5);

聽

銆€銆€read錛?/span>k錛?/span>

聽

銆€銆€END;

聽

銆€銆€q^.next錛?/span>=NIL;

聽

銆€銆€END;銆?a target="_blank">鍖椾含甯堣寖澶у 1999 涓夈€?/span>

聽

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

聽

銆€銆€(1) VAR head:ptr (2) new(p) (3) p^.data:=k聽 (4) q^.next:=p (5) q:=p(甯﹀ご緇撶偣)