VBA. Excel. определить сколько треугольников лежит внутри окружности радиуса R с центром вначале координат.

[Dus master]

люди!) прошу откликнитесь. препод подписал последнюю работу, а завтра экзамен и я не могу ее сделать(((
задача: заданы координаты вершин трех треугольников. определить сколько треугольников лежит внутри окружности радиуса R с центром вначале координат.
SOS!

[doober]

Р-координаты центра окружности,С-координаты точки.,R-радиус окружности.Проверку по точкам сделаете сами

Public Function in_circle(P, C, R) As Boolean
        Dim rx As Double
        Dim ry As Double
        rx = C(0) - P(0)'координаты Х
         ry = C(1) - P(1)'Координаты Y
in_circle = IIf(rx ^ 2 + ry ^ 2 < R ^ 2, True, False)

    End Function

[Dus master]

спасибо тебе огромное!!!

[Dus master]

эх, рано радовался, это для excel? а то мне друг сказал, что может просто для бейсика, а мне надо в excel. и... что там надо дописать? вроде прога не получаеца на компе))))

[doober]

Сообщение от Dus master

эх, рано радовался, это для excel? а то мне друг сказал, что может просто для бейсика, а мне надо в excel. и... что там надо дописать? вроде прога не получаеца на компе))))

Точно рано ёще идти на экзамен
А если так

Private Sub CommandButton1_Click()
Dim A(1), B(1), R
A(0) = 0
A(1) = 0
B(0) = 12: B(1) = 10
R = 20
MsgBox (in_circle(A, B, R))
End Sub
Public Function in_circle(P, C, R) As Boolean
        Dim rx As Double
        Dim ry As Double
        rx = C(0) - P(0) 
         ry = C(1) - P(1) 
in_circle = IIf(rx ^ 2 + ry ^ 2 < R ^ 2, True, False)

    End Function

[Dus master]

спасибо!)) у меня в школе просто программирования небыло...

[doober]

А я в школе учился считать на палочках и счётах