单链表的删除操作procedure delete
20 查阅
参考答案:
begin
\r\n
p:=loc(L,I-1);
q:=p^.next;
p^.next:=q^.next;
dispose(q);
dec(L.len);
end;
参考答案:
begin
\r\n
p:=loc(L,I-1);
q:=p^.next;
p^.next:=q^.next;
dispose(q);
dec(L.len);
end;