Главная » 2013 » Январь » 8 » Попадает ли точка M(x,y) в область фигуры(круга с центром в 0,0 и радиусом R)? Написать макрос в Excel Visual Basic for Application.
00:39
Попадает ли точка M(x,y) в область фигуры(круга с центром в 0,0 и радиусом R)? Написать макрос в Excel Visual Basic for Application.
Sub Macro1()
x = Cells(1, 2)
y = Cells(2, 2)
R = Cells(3, 2)
flag = False
If x ^ 2 + y ^ 2 <= R ^ 2 Then
flag = True
End If
If flag Then
MsgBox ("Точка M(" & CStr(x) & "," & CStr(y) & ") попадает к круг")
Else
MsgBox ("Точка M(" & CStr(x) & "," & CStr(y) & ") не попадает к круг")