Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизПомогите с решением! Найти похожие ветки
← →
Пташка (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]Нда.................
← →
KoluChi (2002-11-22 16:53) [6]d1=dx1,d2=dx2
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c