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

[Рустам]

Даны действительные числа 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.

[volvo]

То есть, мой вариант, который делает то же самое (за один проход, естественно, а ты думал что, я буду проходить 15 раз туда-сюда?), ты предпочел НЕ заметить, и теперь двигаешь "революционную" идею, да? Мудро... Далеко пойдешь...

[passat]

То есть, мой вариант, который делает то же самое (за один проход, естественно, а ты думал что, я буду проходить 15 раз туда-сюда?), ты предпочел НЕ заметить, и теперь двигаешь "революционную" идею, да?

Я ничего, никого и никуда не двигаю. Нужно это человеку или нет - не знаю.
Угодно стереть - стирайте. Не вопрос ни разу.

Мудро... Далеко пойдешь...

Спасибо. Я уже пришел.

Пальма первенства за Вами.

[Lapp]

Я ничего, никого и никуда не двигаю. Нужно это человеку или нет - не знаю.
Угодно стереть - стирайте. Не вопрос ни разу.
Спасибо. Я уже пришел.

Пальма первенства за Вами.

passat, нет никакой нужды кипятится. Если ты отвечаешь в тему - пожалуйста, дай себе труд прочитать все сообщения в ней. Это не только тут, это на всех форумах, и не только на форумах. Включаешься в разговор - сначала прислушайся к нему. Назови это первенством, этикетом, вежливостью - как хочешь.
Если я попадал в подобную ситуацию (со мной бывало) - я извинялся. Прийми это как совет. Не вижу смысла оскорбляться..