Списки Опции

[Caries]

Описать процедуру которая формирует список L, включив в него по одному разу элементы которые входят хотя в один из списков L1 и L2

[volvo]

А вообще-то это делается вот так:

Код

uses item, list;

const
 first: array[1 .. 10] of integer =
   (1, 3, 6, 3, 8, 2, 6, 5, 3, 9);
 second: array[1 .. 10] of integer =
   (1, 23, 6, 83, 8, 2, 16, 5, 35, 9);


procedure add_once(var lst_from, lst_to: tlist);
 var p: ptitem;
 begin
   p := lst_from.first;
   while assigned(p) do begin
     if lst_to.find(p^.info) = nil
       then lst_to.append(p^.info);
     p := p^.next
   end
 end;

var
 L, L1, L2: tlist;
 i: integer;

begin
 L1.init; for i := 1 to 10 do
   L1.append(first[i]); L1.print;

 L2.init; for i := 1 to 10 do
   L2.append(second[i]); L2.print;

 L.Init;
 add_once(L1, L);
 add_once(L2, L);
 L.print;

 L.done;
 L2.done;
 L1.done;
end.

Чтобы запустить эту программу - качай файл list.rar из аттача и распаковывай в ту же директорию, где сама программа.