Дорогие товарищи! Прошу вашей помощи в решении задачи. Собственно задача:
Даны 2 списка(думаю надо самим создавать) и программа должна создать третий список, содержащий общие элементы этих двух списков.
Ну, насчет создать первые 2 списка - это здесь:
http://forum.pascal.net.ru/index.php?s=&showtopic=2706&view=findpost&p=23570
А по поводу создать третий список - что-то такого типа:
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;
Спасибо, попробую.