Дорогие товарищи! Прошу вашей помощи в решении задачи. Собственно задача:
Даны 2 списка(думаю надо самим создавать) и программа должна создать третий список, содержащий общие элементы этих двух списков.
Function ExistsInList(L: Point; X: Integer): Boolean;
Begin
ExistsInList := True;
While L <> nil Do Begin
If L^.number = X Then Exit;
L := L^.next;
End;
ExistsInList := False;
End;
...
{ В основной программе: }
ThirdList := nil;
p := FirstList;
while p <> nil do begin
If ExistsInList(SecondList, p^.number) and
not ExistsInList(ThirdList, p^.number) Then Begin
{ Добавить элемент p^.number в третий список }
End;
p := p^.next;
end;