- 431 名前：デフォルトの名無しさん [2006/11/14(火) 22:31:52 ]
- で、その共通要素を探す手続きなのですが・・・
これのどこがだめなのかご指摘願います。
procedure search(var p,q,r : pointer);
var
found : boolean;
begin
while p<>nil do
begin
found:=false;
while q<>nil do
begin
if p^.element=q^.element then found:=true
else q:=q^.next
end;
if found then
begin
new(r);
insert(r,p^.element)
end;
p:=p^.next
end
end; { search }
