数据结构1800题（答案全）(10)

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

BEGIN

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

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

dispose(q); j:=j+1

END

END;【复旦大学 1997 四（12分）】

27．对于给定的线性链表head , 下面的程序过程实现了按结点值非降次序输出链表中的所有结点，在每次输出一个结点时，就把刚输出的结点从链表中删去。请在划线处填上适当的内容，使之成为一个完整的程序过程，每个空框只填一个语句。

TYPE nodeptr =^ nodetype；

nodetype = RECORD

data : integer；link : nodeptr

END;

VAR head : nodeptr；

PROCEDURE sort_output_delete (head : nodeptr);

VAR p,q,r,s: nodeptr;

BEGIN WHILE head <> NIL DO

BEGIN p:= NIL ；q:= head；r:= q ；s:=q^.link ；