熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> 數據結構 >> 正文

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

2013-11-15 14:56:03  來源: 數據結構 

  .在本題的程序中函數過程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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.