數據結構考研分類復習真題 第二章 線性表[14]

　　．完善算法已知單鏈表結點類型為

　　TYPE  ptr=^node
　　node=RECORD
　　datainteger  nextptr
　　END

　　過程create建立以head為頭指針的單鏈表

　　PROCEDURE  create ( () )
　　VAR pqptr   kinteger
　　BEGIN
　　new（head）  q:=headread（k）
　　WHILE k> DO
　　BEGIN
　　(); (); (); ();
　　read（k）
　　END;
　　q^next=NIL;

　　END;【北京師范大學 三】

　　 已給如下關於單鏈表的類型說明

　　TYPE
　　list=^node ;
　　node=RECORD
　　data:  integer;   next:  list;
　　END;

　　以下程序采用鏈表合並的方法將兩個已排序的單鏈表合並成一個鏈表而不改變其排序性（升序）這裡兩鏈表的頭指針分別為p和q

　　PROCEDURE mergelink(VAR pq:list):
　　VAR hr: list;
　　BEGIN
　　（）
　　h^next:= NIL; r:=h;
　　WHILE((p<>NIL) AND (q<>NIL))   DO
　　IF (p^data<=q^data)
　　THEN  BEGIN   （）  r:=p; p:=p^next  END
　　ELSE  BEGIN  （）  r:=q; q:=q^next;   END;
　　IF (p=NIL)  THEN  r^next:=q;
　　（） 
　　p:=h^next; dispose(h);
　　END;【廈門大學 三 （分）】

[]  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  

From:http://tw.wingwit.com/Article/program/sjjg/201311/22567.html