класс для работы с обьектом множества

[Kreaman]

Ребята, вот дали такое задание.
Ввести класс для работы с обьектом множества, реализовать объединения двух множеств.
Проблема в том что не понимаю как сделать. Помоги, кто знает.

[artemavd]

можно использовать обычные множества, которые на самом деле и хранятся как битовые. Если множество вам нужно для проверки, установлен ли какой то бит в слове

type  
  PByteSet = ^TByteSet;  
  TByteSet = set of Byte;  
var  
  W: Word;  
...  
{ если бит 3 в слове W установлен, тогда ... }  
  if 3 in PByteSet(@W)^ then ...  
...

[Sibedir]

Если вас интересуют простые перечисляемые множества (типа [Red, Green, White]), то с ними можно работать, как с обычными массивами, а если нужны множества с диапазонами, то это уже посложней.

[Sibedir]

Тема интересная, если я правильно понял задачу. Если честно, давно хотел написать класс работы с множествами, да руки как-то не доходили. Решил таки потратить пару часиков.
Сначала пошел проторенной дорожкой. Пытался анализировать множества простой логикой. Ну типа, при вычитании множества 2 из множества 1, если начался диапозон множества 1, а диапозон второго множества не закончился, то новый диапозон не начинаем. Само же множество, описывал, как массив записей вида:

TSubset = record
  Begin_, End_: Real;
end;

Но потом, нарисовал на листочке вот такую картину
Безымянный.jpg
подумал и ниписал вот так
Класс множества.zip