На планете гекса 6 времен года. астрономы, изучающие звездную систему,
которой принадлежит эта планета, научились определять времена года на ней по
расположению трех близлежащих звезд и траектории движения гексы вокруг своего
солнца. для этого необходимо спроецировать на карту звездного неба в данный
момент времени треугольник, образованный линиями, соединяющими близлежащие
звезды и окружность по которой движется гекса вокруг своего солнца. если
окружность находится внутри треугольника, то на планете гекса время года,
обозначенное 1. если хотя бы одна из вершин треугольника лежит на окружности, то
время года - 2. если хотя бы одна сторона пересекает окружность, то - 3. если хотя
бы одна сторона треугольника касается окружности - 4. если треугольник лежит в
окружности - 5. если треугольник и круг, ограниченный данной окружностью не
имеют общих точек, то на планете время года номер 6. напишите программу, которая
по описанию карты звездного неба определяет время года на планете гекса.
формат входных данных: в первых трех строках программы вводятся по два числа -
координаты звезд, спроецированных на карту (0< =x,y< =1000). в четвертой строке -
координаты солнца (центра окружности, по которой движется гекса) и радиус этой
окружности.
формат выходных данных: необходимо вывести одно число - номер времени года,
соответствующее текущему времени года на планете гекса.
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()