Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Пташка © (2002-11-22 11:06:00)
Есть несколько листов железа квадратной формы. Они распалагаются на плоскости. Заданы координаты левого верхнего угла и длина каждого квадрата. Нужно вычислить какую площадь будут занисать все листы! Помогите ну очень нужно"!!!!!!!!

KoluChi (2002-11-22 16:53:00) [1]
d1=dx1,d2=dx2

ponchick (2002-11-22 14:49:00) [2]
Нда.................

Пташка (2002-11-22 12:33:00) [3]
Что такое D1 D2???

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

KoluChi (2002-11-22 11:46:00) [4]
(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 11:23:00) [5]
В принципе я это то и знала, но как именно вычеслить площадь пересечения квадратов?

KoluChi (2002-11-22 11:15:00) [6]
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; //результат

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »