задача на множества Опции

[anastasiya]

множества: Придумать список некоторых объектов, например, названия товаров в мага-зинах; виды полезных ископаемых, которые добывают в различных странах; фамилии студентов, которые могут принимать участие в работе определен-ных кружков и т.п. Построить пять множеств (язык слов англ.), которые складываются из различных комбинаций элементов этого списка. Вывести на экран названия объектов, которые находятся во всех множествах одно-временно. Определить, какие объекты не входят ни в одно множество. Вы-полнить дополнительно задание своего варианта, а именно, определить, ка-кие объекты: Входят в третье множество, но их нет в четвертом.

[Krjuger]

Лист это не множество!!!!!сначала ты формируеш список, потом ты его заполняеш(либо с клавиатуры либо из файла ), потом из каждого листа ты формируеш множество,ну а дальшще самое легкое это проверять.

TElem = string;
point = ^item;       
 item = record       
     list1: TElem;
     list2: TElem;
     list3: TElem;
     list4: TElem;
     list5: TElem;
     Next: point; 
 end;
var spisok:point;

либо каждый лист сделать отдельным списком

Код

TElem = string;
point = ^item;      
item = record      
     list: TElem;
     Next: point;
end;
var list1,list2,list3,list4,list5:point

Выбор между этими вариантами будет влиять на то как ты будеш вводить информацию.