PASCAL 设计算法

来源：百度知道 编辑：UC知道 时间：2024/09/22 04:30:56
设单向链表中结点按有序链接，设计算法：
删除链表中值相同的结点，使之只保留一个。

完整过程。

......
var
....
begin
........//创建链表
p:=head^.next;//头指针地址
q:=head;
while p<>nil do
begin
if p^.data=q^.data then
begin
q^.next:=p^.next;
dispose(p);
p:=q^.next;
end;//删除重复节点（以data域作为比较对象）
else
begin
q:=p;
p:=p^.next;
end;//如果不相同则往下走
end;
......//你要的核心代码完了
end.