Задача Delphi на мн-ва

[Neostat]

Пусть заданы n отрезков с целочисленными координатами концов.Координаты концов находятся в диапазоне от 0 до 100 включительно.Определите существует ли такая точка с целочисленными координатами,которая принадлежит всем этим отрезкам.

Уважаемые форумчане,помогите пожалуйста решить эту задачу.Дело в том,что я не совсем понимаю,как задать отрезки на множестве.

В голове крутится только одна мысль:
-создать тип Отрезок(запись с коорд. отрезка)
- и мн-во типа Отрезок.

Наверное это полные бред,покажите пожалуйста как правильно надо.Мне не нужно решать задачу,а просто как задать эти отрезки на мн-ве(я так понимаю отрезки мы будем с клавиатуры вводить)

[Вадим Мошев]

-создать тип Отрезок(запись с коорд. отрезка)

Вот это правильно

- и мн-во типа Отрезок.

Вот это сделать у вас не получится. Лучше делайте массив записей-отрезков.

[Poma][a]

Дык тут наипростецкий случай сканирующей прямой, не?

[Neostat]

Сообщение от Вадим Мошев

Вот это правильно

Вот это сделать у вас не получится. Лучше делайте массив записей-отрезков.

Я сделал через массив записей,препод сказал через мн-ва делать(

[Вадим Мошев]

Множество не может содержать записи.

[Neostat]

Сообщение от Вадим Мошев

Множество не может содержать записи.

А как тогда по-другому сделать? Я просто не знаю как можно решить эту задачу используя мн-ва

[BDA]

"Прикрутить" множества можно.
Взять два пустых множества. Найти минимальное и максимальное значение для начал и концов отрезков. Заполнить одно множество числами от минимального начала до максимального начала, а другое - от минимального конца до максимального конца. Затем найти пересечение множеств и проверить его на пустоту.

Второй подход:
Взять множество, содержащее все точки от 0 до 100. Преобразовывать каждый отрезок во множество точек, которое он покрывает, и находить пересечение с этим множеством (накапливать пересечения). В конце проверить полученное множество на пустоту.

ПС Это первое, что пришло в голову. Могут быть и более элегантные способы применения множеств.

[Poma][a]

Сообщение от Вадим Мошев

Множество не может содержать записи.

А и не будем. Преп - умница! Прально он все говорит
Делаем так :

s := [];
for i := 1 to n do begin
     Read(a, b);
     for j := 1 to a-1 do
          s :=s-[j];
     for j := b+1 to 100 do
          s :=s-[j];
end;
for i := 1 to 100 do
   if i in s then begin
       WriteLn(i); Break
   end

[Neostat]

Сообщение от Poma][a

А и не будем. Преп - умница! Прально он все говорит
Делаем так :

s := [];
for i := 1 to n do begin
     Read(a, b);
     for j := 1 to a-1 do
          s :=s-[j];
     for j := b+1 to 100 do
          s :=s-[j];
end;
for i := 1 to 100 do
   if i in s then begin
       WriteLn(i); Break
   end

Спасибо огромное,выручили)

[Poma][a]

Только я наврал чуть-чуть.. Должно быть идти нужно от 0