Площадь пересечения двух прямоугольников - Помощь студентам

makskovalko · 14.04.2013, 22:50

Помогите решить задачу!

BDA · 14.04.2013, 23:35

Код:

x11 := max(min(x1,x2),min(x3,x4));
x12 := min(max(x1,x2),max(x3,x4));
y11 := max(min(y1,y2),min(y3,y4));
y12 := min(max(y1,y2),max(y3,y4));
if (x12 - x11 > 0) and (y12 - y11 > 0) then
  s := (x12 - x11) * (y12 - y11)
else
  s := 0;

hon · 15.04.2013, 16:09

А зачем?..

14.04.2013, 23:35	#2
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,427	Код: `x11 := max(min(x1,x2),min(x3,x4)); x12 := min(max(x1,x2),max(x3,x4)); y11 := max(min(y1,y2),min(y3,y4)); y12 := min(max(y1,y2),max(y3,y4)); if (x12 - x11 > 0) and (y12 - y11 > 0) then s := (x12 - x11) * (y12 - y11) else s := 0;` Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно найти алгоритм для пересечения отрезка с набором прямоугольников	Trinock	Gamedev - cоздание игр: Unity, OpenGL, DirectX	4	01.12.2011 14:31
Задача на пересечения прямоугольников.желательно экстренно.	Llein	Паскаль, Turbo Pascal, PascalABC.NET	2	27.10.2011 19:21
Площадь пересечения двух фигур	Marsel737	Общие вопросы Delphi	4	04.09.2010 20:38
Площадь прямоугольников	savraska	Помощь студентам	7	04.06.2010 16:42
Pascal. Площадь пересечения кругов	TOSAgrk	Помощь студентам	1	05.02.2009 04:23

15.04.2013, 16:09	#3
hon Форумчанин Регистрация: 08.06.2011 Сообщений: 693	А зачем?..