Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] Математические модели, Расстановка ЗРК с использованием vba
 
Просто натолкните на идею и все
[ Закрыто] Математические модели, Расстановка ЗРК с использованием vba
 
Доброго времени суток. При написании программы возникли некоторые трудности. Задача заключается в следующем. На координатной плоскости даны 8 объектов с координатами X Y. Необходимо найти минимальное количество зенитно-ракетных комплексов которые смогут прикрыть все объекты. Радиус прикрытия одного зенитно-ракетных комплекса равен R.
Option Base 1
Sub Расстановка ()
Dim ПУ(2,10)
Dim k As integer
Dim a(1000,1000) As intrger
 For j = 1 to 1000
   For i = 1 to 1000
     a(j,i) = 1
   Next i
 Next j
For m =2 to 3
 For n = 1 to 10
   ПУ(m,n) = Cells(m,n)
Next n
Dim ЗРК(1,1)
Dim R As integer
R = Cells (..,..)
For i = 1 to 1000
 For j = 1 to 1000
   If R >= ((m-i)^2 + (n-j)^2)^(1/2)
[ Закрыто] VBA програмирование, Помощь пользователям в написании программы в среде программирования vba ecxel
 
Доброго времени суток форумчане. Подскажите пожалуйста в написании программы в среде vba. Задача заключается в следующем, дан график в декартовой системе координат, на этом графике расположены 10 объектов с координатами 1(7;1), 2(6;4), 3(3;4), 4(4;6), 5(7;7), 6(10;7), 7(11,5;5,5), 8(10,6;3,5), 9(9,8;1,8), 10(8;4) необходимо на графике расставить минимальное количество окружностей радиусом R=2,6 чтобы они полностью накрывали все эти объекты. Заранее спасибо.
Страницы: 1
Наверх