(a1,a2) , (a3,a4) и тд.
имеют ли все данные интервалы общие точки, если да то указать какую нибудь из этих точек
Прошу доделать эту прогу пожалуйста,вроде бы на мой взгляд осталось немного, но категорически не успеваю
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.
