链表的定位函数 loc（I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc（L:li
结点,指针,函数
已帮助 人
链表的定位函数
loc(I:integer):pointer; {寻找链表中的第I个结点的指针}
procedure loc(L:linklist; I:integer):pointer;
var p:pointer;
j:integer;
-
正确答案：
begin
p:=L.head; j:=0;
if (I>=1) and (I<=L.len) then
while j<I do begin p:=p^.next; inc(j); end;
loc:=p;
end;