Задача с квадратами на паскале

[Nil09511]

Помогите написать программу. И возможно ли решение без массивов?
Даны натуральное число n, действительные числа x1,...,x3n. Последовательность чисел x1,...,x3n определяет на плоскости n квадратов со сторонами, параллельными координатным осям: так, x1, x2 - координаты центра первого квадрата, x3 - длина его стороны; аналогично, числа x4, x5, x6 определяют второй квадрат, x7, x8, x9 - третий и т.д. Имеются ли точки, принадлежащие всем квадратам? Если да, то указать координаты одной из них.

[BDA]

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

[Nil09511]

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

Затем в цикле считывать по 3 числа, искать область пересечения этого квадрата с имеющейся областью и сохранять полученную область вместо имеющейся.

Проблема с нахождением пересечения. Как его найти?

BDA, нашёл ваш ответ на подобную задачу из этой темы http://www.programmersforum.ru/showthread.php?t=195787
Можете его прокомментировать?
"Мой алгоритм:
1) инициализируем top, right - максимальными, bottom ,left - минимальными значениями
2) считываем 3 числа x, y, a
3) if x-a/2>left then left=x-a/2
if x+a/2<right then rigth=x+a/2
if y-a/2>bottom then bottom=y-a/2
if y+a/2<top then top=y+a/2
4) после считывания всех троек точек, если top>=bottom и right>=left, то точки есть"

[BDA]

Область пересечения удобнее хранить как координаты левой, правой сторон, верха и низа. Затем преобразовать 3 числа, задающих квадрат, в область, заданную 4 числами. Пересечение двух прямоугольников:
лево = максимум(лево1, лево2)
право = минимум(право1, право2)
верх = минимум(верх1, верх2)
низ = максимум(низ1, низ2)

нашёл ваш ответ

Хаха, всё повторяется

Для понимания просто нарисуйте 2 пересекающихся прямоугольника на бумаге и проследите, как получаются выше написанные равенства.

[Serge_Bliznykov]

ещё чуть дополню ответ.
Если на любом шаге область пересечения стала равной нулю (у очередного прямоугольника нет пересечения с предыдущей областью), то уже оставшиеся координаты можно не считывать - ответ отрицательный, общих точек нет.

[Nil09511]

Хорошо. Поясните насчёт координат сторон. Как это выглядит в программе? Я не понимаю

[BDA]

left := max(left, x - a/2);
right := min(right, x + a/2);
bottom := max(bottom, y - a/2);
top := min(top, y + a/2);

По сути, те же if'ы.

[Nil09511]

Чёрт, это гениально и просто! Спасибо)