数据结构 | 每日一练（26）

数据结构

合抱之木,生于毫末;九层之台,起于累土;千里之行,始于足下

——老子

1

每日一练

1.在本题的程序中，函数过程 Create_link_list(n)建立一个具有 n 个结点的环形链表;程序过程josephus(n,i,m)对由Create_link_list(n)所建立的具有n个结点的环形链表按一定的次序逐个输出并删除链表中的所有结点，参数 n(n>0)指明环形链表的结点个数，参数 i(1<=i<=n)指明起始结点，参数 m (m>0)是步长，指明从起始结点或前次被删除并输出的结点之后的第 m 个结点作为本次被输出并删除的结点。例如，对于下图中具有 6 个结点的环形链表，在调用 josephus(6,3,2)后，将输出 5,1,3,6,4,2 请在横线处填上适当内容，

每空只填一个语句。

TYPE nodeptr=^nodetype;

nodetype=RECORD

data: intrger; link: nodeptr

END;

VAR n,i,m: integer;

FUNCTION Create_link_list(n: integer): nodeptr;

VAR head,p,q: nodeptr; i:integer;

BEGIN head := NIL;

IF n>0 THEN

BEGIN new(head); p: =head;

FOR i:=1 TO n-1 DO

BEGIN p^.data:=i; new(q); (A)____; (B)____ END；

p^.data:=n; (C)___;

END;

Creat_link_list:=head

END;

PROCEDURE josephus(n,i,m:integer);

VAR p,q:nodeptr; j:integer;

BEGIN p:=Creat_link_list(n);

WHILE i>1 DO BEGIN p:=p^.link; i:=i-1 END;

(D)___ ;

WHILE j<n DO

BEGIN

FOR i:=1 TO m-1 DO p:=p^.link;

(E)___; write(q^.data:8); (F)__ ;

dispose(q); j:=j+1

END

END;

正确答案

1.

(A)p^.link:=q;∥拉上链，前驱指向后继

(B)p:=q;∥新的前驱

(C)p^.link:=head;∥形成循环链表

(D)j:=0; ∥计数器，记被删结点

(E)q:=p^.link∥记下被删结点

(F)p^.link=q^.link ∥删除结点

如果您觉得本篇文章对您有作用，请转发给更多的人，点一下好看就是对小编的最大支持！

-end-