Площадь пересечения полос (Pascal)

[tszavyalova]

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

[BDA]

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

readln(n, k);
readln(xmin, xmax);
for i := 1 to n - 1 do
begin
  readln(a, b);
  if a > xmin then
    xmin := a;
  if b < xmax then
    xmax := b;
end;
readln(ymin, ymax);
for i := 1 to k - 1 do
begin
  readln(a, b);
  if a > ymin then
    ymin := a;
  if b < ymax then
    ymax := b;
end;
if (xmax <= xmin) or (ymax <= ymin) then
  write('Нет пересечения')
else
  write('S = ', (xmax - xmin) * (ymax - ymin), '; P = ', 2 * (xmax + ymax - xmin - ymin));

Можно написать оптимальнее.

[tszavyalova]

Координаты пересечения на вашей схеме: лев. ниж. точка прямоугольника (7,3), прав. верх точка (8,5)

[tszavyalova]

Да, если можно оптимальнее!! Спасибо!

[tszavyalova]

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

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

readln(n, k);
readln(xmin, xmax);
for i := 1 to n - 1 do
begin
  readln(a, b);
  if a > xmin then
    xmin := a;
  if b < xmax then
    xmax := b;
end;
readln(ymin, ymax);
for i := 1 to k - 1 do
begin
  readln(a, b);
  if a > ymin then
    ymin := a;
  if b < ymax then
    ymax := b;
end;
if (xmax <= xmin) or (ymax <= ymin) then
  write('Нет пересечения')
else
  write('S = ', (xmax - xmin) * (ymax - ymin), '; P = ', 2 * (xmax + ymax - xmin - ymin));

Можно написать оптимальнее.

Что обозначают в этой программе переменные a, b?

[Serge_Bliznykov]

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

Что обозначают в этой программе переменные a, b?

координаты полос (в a считывается координата начала полосы, в b координата окончания полосы)