Помогите с решением!

← →
Пташка (2002-11-22 11:06) [0]

Есть несколько листов железа квадратной формы. Они распалагаются на плоскости. Заданы координаты левого верхнего угла и длина каждого квадрата. Нужно вычислить какую площадь будут занисать все листы! Помогите ну очень нужно"!!!!!!!!

← →
KoluChi © (2002-11-22 11:15) [1]

N-количество квадратов;
S1=площадь квадратов.
S2:=0; //площадь пересечения
for i := 1 to N - 1 do
for j := I + 1 to N do
S2 := S2 + площадь пересечения i и j квадратов.
S:=S1-S2; //результат

← →
Пташка (2002-11-22 11:23) [2]

В принципе я это то и знала, но как именно вычеслить площадь пересечения квадратов?

← →
KoluChi © (2002-11-22 11:46) [3]

(x1, y1) - левый угол 1 квадрата
x2 := x1 + a; // а - сторона квадрата
(x3, y3) - левый угол 2 квадрата
x4 := x3 + b; // b - сторона квадрата
dx1 := x2 - x3;
dx2 := x4 - x1;
if d1*d2<0 then dx := 0
else dx := min(d1, d2);
//тоже для dy
Sp := dx*dy; //площадь пересечения

← →
Пташка (2002-11-22 12:33) [4]

Что такое D1 D2???

Всем спасибо!

← →
ponchick (2002-11-22 14:49) [5]

Нда.................

d1=dx1,d2=dx2

Помогите с решением! Найти похожие ветки