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

　　．在本題的程序中函數過程Create_link_list(n)建立一個具有n個結點的環形鏈表;程序過程 josephus(nim)對由Create_link_list(n)所建立的具有n個結點的環形鏈表按一定的次序逐個輸出並刪除鏈表中的所有結點參數 n(n>)指明環形鏈表的結點個數參數 i(<=i<=n)指明起始結點參數 m (m>)是步長指明從起始結點或前次被刪除並輸出的結點之後的第m個結點作為本次被輸出並刪除的結點例如對於下圖中具有個結點的環形鏈表在調用 josephus()後將輸出 請在橫線處填上適當內容每空只填一個語句

　　TYPE nodeptr=^nodetype;
　　nodetype=RECORD
　　data: intrger; link: nodeptr
　　END;
　　VAR nim: integer;
　　FUNCTION Create_link_list(n: integer): nodeptr;
　　VAR headpq: nodeptr; i:integer;
　　BEGIN head := NIL;
　　IF n> THEN
　　BEGIN new(head); p: =head;
　　FOR i:= TO n DO
　　BEGIN  p^data:=i;  new(q);   (A)  ;   (B)   END
　　p^data:=n;   (C)  ;
　　END;
　　Creat_link_list:=head
　　END;
　　PROCEDURE  josephus(nim:integer);
　　VAR pq:nodeptr; j:integer;
　　BEGIN p:=Creat_link_list(n);
　　WHILE i> DO BEGIN p:=p^link;  i:=i  END;
　　(D)   ;
　　WHILE  j<n  DO
　　BEGIN
　　FOR i:=  TO  m  DO  p:=p^link;
　　(E)  ; write(q^data:);   (F)   ;
　　dispose(q);  j:=j+
　　END
　　END;【復旦大學 四（分）】

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

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