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

[Аватар]

type TMyBytes = set of Byte;
var a: array of TMyBytes;
    i,n: Integer;
    b1,b2: Byte;
    b: TMyBytes;

...  
  n:=чего-то
  SetLength(a,n);
  for i:=0 to n-1 do begin
    b1:=начало отрезкаj
    b2:=конец отрезка;
    a[i]:=[b1..b2];
  end;
  b:=a[0];
  for i:=1 to n-1 do b:=b*a[i];
  if b=[] then нет общих точек else есть общие точки

end;

Если без массива, то прямо в цикле как BDA предлагал

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

Сообщение от BDA

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

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

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

Не особо вчитывался, но пришло в голову такое решение.
1. Нам надо найти самый широкий отрезок, который включает в себя все остальные.
2. Записываем координаты конца и начала отрезка в множество.
3. Проверяем условие принадлежности точки к этому отрезку (у нас одномерное пространство?)

[Neostat]

Сообщение от Аватар

type TMyBytes = set of Byte;
var a: array of TMyBytes;
    i,n: Integer;
    b1,b2: Byte;
    b: TMyBytes;

...  
  n:=чего-то
  SetLength(a,n);
  for i:=0 to n-1 do begin
    b1:=начало отрезкаj
    b2:=конец отрезка;
    a[i]:=[b1..b2];
  end;
  b:=a[0];
  for i:=1 to n-1 do b:=b*a[i];
  if b=[] then нет общих точек else есть общие точки

end;

И вам спасибо большое,разобрался я) Все легко,просто то ли плохо искал,то ли ещё что...Не разобрался как сделать мн-во отрезков.)Теперь все отлично)

[Poma][a]

И я снова наврал.. Во множестве должны быть все число из [0; 100]

[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

Немного непонятно,а почему a-1 и b + 1

[BDA]

Потому что концы отрезков покрыты, а эти циклы удаляют непокрытые отрезком точки из множества.