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

　　 已知雙鏈表中結點的類型定義為

　　TYPE dpointer=^list;
　　list=RECORD
　　data:integer; leftright:dpointer;
　　END;

　　如下過程將在雙鏈表第i個結點（i>=）之後插入一個元素為x的結點請在答案欄給出題目中______處應填入的語句或表達式使之可以實現上述功能

　　PROCEDURE  insert(VAR head:dpointer;ix:integer);
　　VAR sp:dpointer;   j: integer;
　　BEGIN
　　new(s); s^data:=x;
　　IF(i=)THEN BEGIN s^right:=head;   ()    head:=s END{如果i=則將s結點插入到表頭後返回}
　　ELSE BEGIN p:=head;   ()   {在雙鏈表中查找第i個結點由p所指向}
　　WHILE ((p<>NIL) AND (j<i)) DO  BEGIN  j:=j+; () _ END;
　　IF p<>NIL THEN
　　IF （p^right=NIL）
　　THEN BEGIN p^right:=s; s^right:=NIL;   ()   END
　　ELSE BEGIN s^right:=p^right;   ()   ;p^right:=s;  ()   END
　　ELSE  writeln(can not find node!)
　　END
　　END;【廈門大學 二 （分）】

　　．閱讀以下算法填充空格使其成為完整的算法其功能是在一個非遞減的順序存儲線性表中刪除所有值相等的多余元素

　　CONST  maxlen=
　　TYPE sqlisttp=RECORD
　　elem:ARRAY[maxlen] OF integer;
　　last:maxlen
　　END;
　　PROC exam(VAR L:sqlisttp);
　　j:=;  i:=;
　　WHILE    ()   DO
　　[ IF  Lelem[i]<>Lelem[j]  THEN [   ()   ;   ()   ];
　　i:=i+ ]
　　()   ;
　　ENDP;【同濟大學 二 (分)】

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

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