Отрезки имеющие общие точки, Геометрия Опции

[Рустам]

Даны действительные числа a₁..a₅₀ эти числа определяют 25 интервалов числовой оси
(a₁,a₂) , (a₃,a₄) и тд.
имеют ли все данные интервалы общие точки, если да то указать какую нибудь из этих точек



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

uses crt;
const n=4; {для примера рассматривал 4 интервала только}
var
a: array[1..2,1..n] of integer;
i,j,k:  integer;

b: array [1..2] of integer;
begin
clrscr;

for i:=1 to n do    begin
writeln('x,y');
for j:=1 to 2 do   begin

readln(a[i,j])
end;
end;


for i:=1 to n do begin

for j:=1 to 2 do begin
write(a[i,j]:3);
end;
writeln;
end;

{раз все интервалы могут иметь общую точку то достаточно взять один интервал первый например и сравнить со всеми}
for i:=2 to n do
begin
if (a[1,1]<a[i,1]) and (a[1,2]<a[i,2]) and (a[1,2]>a[i,1])  {если первый лежит чуть левее}
then
begin
b[1]:=a[i,1]; b[2]:=a[1,2];

if (a[1,1]>a[i,1]) and (a[1,2]>a[i,2]) and (a[i,1]<a[i,2]){если первый интервал лежит чуть правее}
then
begin
if b[2]<a[i,2] then b[2]:=a[i,2];
if b[1]<a[1,1] then b[1]:=a[1,1];
end;

if  (a[1,1]<a[i,1]) and (a[2,2]>a[i,2]) then  begin {если первый интервал содержит следующий}
b[1]:=a[i,1]; 
b[2]:=a[i,2];
end;

if (a[1,1]>a[i,1]) and (a[2,2]<a[i,2]) then begin {если первый интервал содержится в следующем}
b[1]:=a[1,1];
b[2]:=a[2,2];
end;
end;

readkey;
end.

[Рустам]

Я тебя почти понял)) спасибо завтра попробую

[passat]

Если не ошибся с пониманием, то у Вас типовая задача на связность областей.
Решается обычно приблизительно так:
1. Заводится массив из N структур(записей) данных (или 2 массива размерностью по N), где ключом являются координаты Ваших точек. Началу отрезка присваивается +1, концу -1.
2. Массив сортируется по ключу.
3. Идем по массиву и считаем сумму +1 и -1.
4. Если сумма достигла 25, то общей точкой будет ключ этой точки.
5. Дополнительно надо проверить не пересекаются ли все отрезки по границе.

Если известно, что заданные числа только целые, то имеет смысл преобразовать их к вещественным и добавить к конечным точкам дробную часть. Так Вы избавитесь от проверки пересечения на границе.

[passat]

Опять же если правильно понял условие, то задачу можно решить за один проход по последовательности. (Это решение вытекает из предыдущего).
1.Считываем числа попарно (начало/конец).
2.Среди первой последовательности ищем максимум, а среди второй минимум.
3а.Если максимум не больше минимума, то выводим любое число из полученного интервала.
3б.Если нет, то ВСЕ отрезки не имеют ни одной общей точки. Т.е. хотя бы один отрезок заканчивается раньше чем открывается хотя бы один другой.