c数据结构习题3(链表).docVIP

数据结构习题3（链表） 有一个单链表（不同结点的数据域值可能相同），其头指针为head，编写一个过程计算数据域为x的结点数。 Type link=^node; Node=record Data:integer; Next:link; End; Peocedure count(head:link;var n:integer); Begin N:=0;p:=head; While(pnil) do [ if (p^.data=x) then n:=n+1; p:=p^.next;] print n; end; 有一个单链表L（至少有一个结点），其头结点指针为head，编写一个过程将L逆置，即最后一个结点变成第一个结点，原来倒数第二个结点变成第二个结点，如此等等。 Procedure invert(var head:link); Var p,q,r:link; Begin P:=head;q:=p^.next; While (qnil) do [ r:=q^.next; q^.next:=p;p:=q;q:=r;] head^.next:=nil;head:=p; end; 有两个具有相同结点个数的单链表A={a1，a2，…，an}，B={b1，b2，…，bn}，编写一个过程将其合并成一个链表C，C={a1，b1 ，a2，b2…an，bn}。 procedure sum(var a,b,c:link); var r,s,p,q:link; begin new( c); r:=c;p:=a;q:=b; while(pnil)do [ new (s); s^.data:=p^.data; r^.next:=s; p:=p^.next; r:=s; new(s); s^.data:=q^.data; r^.next:=s; q:=q^.next; r:=s; ] r^.next:=nil;c:=c^.next;end; 有一个单链表，其结点的元素值以非递减有序排列，编写一个过程删除该单链表中多余的元素值相同的结点。 Procedure del(var head:link); Var q,p:link; Begin If (headnil) then [ while (p^.nextnil) do if (p^.datap^.next.data) then p:=p^.next else [ q:=p^.next;p^.next:=q^.next;dispose(q); ] ] end; 已知一个循环单链表如图，编写一个过程将所有箭头方向取反。 Procedure invert; Var p,q,r:link; Begin P:=head; Q:=p^.next; While(pq) do [ r:=head;while (r^.nextp) do r:=r^.next; p^.next:=r;p:=p^.next; ] q^.next:=head; end; a1 a2 an ? head