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

1錛?/span>PROC ins__linklist(la:linkisttp; i:integer; b:elemtp);

聽

銆€銆€{la涓烘寚鍚戝甫澶寸粨鐐圭殑鍗曢摼琛ㄧ殑澶存寚閽堬紝鏈畻娉曞湪琛ㄤ腑絎?/span>i涓厓绱犱箣鍓嶆彃鍏ュ厓绱?/span>b}

聽

銆€銆€p:=(1) ; j:=(2) ;{鎸囬拡鍒濆鍖栵紝j涓鴻鏁板櫒}

聽

銆€銆€WHILE (p<>NIL) AND ((3) ) DO [p:=(4) ; j:=j+1錛?/span>]

聽

銆€銆€{瀵繪壘絎?/span> i-1 涓粨鐐?/span>}

聽

銆€銆€IF (p=NIL) OR ((5) )

聽

銆€銆€THEN error (鈥?/span>No this position鈥?/span>)

聽

銆€銆€ELSE [new(s) ; s鈫?/span>.data:=b; s鈫?/span>.next:=p鈫?/span>.next; p鈫?/span>.next:=s;]

聽

銆€銆€ENDP;{ins-linklist}銆?a target="_blank">鐕曞北澶у 1998 鍥涖€?/span>1錛?/span>15鍒嗭級銆?/span>

聽

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

聽

銆€銆€(1)la聽 (2)0 (3)j<i-1 (4)p鈫?/span>.next (5)i<1

聽

銆€銆€2. 宸茬煡鍙岄摼琛ㄤ腑緇撶偣鐨勭被鍨嬪畾涔変負(fù)錛?/span>

聽

銆€銆€TYPE dpointer=^list;

聽

銆€銆€list=RECORD

聽

銆€銆€data:integer; left,right:dpointer;

聽

銆€銆€END;

聽

銆€銆€濡備笅榪囩▼灝嗗湪鍙岄摼琛ㄧi涓粨鐐癸紙i>=0錛変箣鍚庢彃鍏ヤ竴涓厓绱犱負(fù)x鐨勭粨鐐癸紝璇峰湪絳旀鏍忕粰鍑洪鐩腑______澶勫簲濉叆鐨勮鍙ユ垨琛ㄨ揪寮忥紝浣夸箣鍙互瀹炵幇涓婅堪鍔熻兘銆?/span>

聽

銆€銆€PROCEDURE insert(VAR head:dpointer;i,x:integer);

聽

銆€銆€VAR s,p:dpointer; j: integer;

BEGIN

聽

銆€銆€new(s); s^.data:=x;

聽

銆€銆€IF(i=0)THEN BEGIN s^.right:=head; (1)___ head:=s END{濡傛灉i=0,鍒欏皢s緇撶偣鎻掑叆鍒拌〃澶村悗榪斿洖}

聽

銆€銆€ELSE BEGIN p:=head; (2)_______錛?/span>{鍦ㄥ弻閾捐〃涓煡鎵劇i涓粨鐐?/span>,鐢?/span>p鎵€鎸囧悜}

聽

銆€銆€WHILE ((p<>NIL) AND (j<i)) DO BEGIN j:=j+1; (3) _ END;

聽

銆€銆€IF p<>NIL THEN

聽

銆€銆€IF 錛?/span>p^.right=NIL錛?/span>

聽

銆€銆€THEN BEGIN p^.right:=s; s^.right:=NIL; (4) __END

聽

銆€銆€ELSE BEGIN s^.right:=p^.right; (5) _;p^.right:=s; (6) END

聽

銆€銆€ELSE writeln(鈥?/span>can not find node!鈥?/span>)

聽

銆€銆€END

聽

銆€銆€END;銆?a target="_blank">鍘﹂棬澶у 2002 浜?/span> 錛?/span>12鍒嗭級銆?/span>

聽

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

聽

銆€銆€(1)head^.left:=s 鈭?/span>head鐨勫墠椹辨寚閽堟寚鍚戞彃鍏ョ粨鐐?/span>

聽

銆€銆€(2)j:=1;

聽

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

聽

銆€銆€(4)s^.left:=p

聽

銆€銆€(5)p^.right^.left:=s; 鈭?/span>p鍚庣戶鐨勫墠椹辨槸s

聽

銆€銆€(6)s^.left:=p;