Помощ!

[...Rammstein...]

Здравейте хора! Наистина съм закъсала, кой ли не питах и нищо. Имам да направя две задачи в една работейки с Visual basic for applications. Ако някой нещо знае много моля за помощ.

Условията са: дадени са N окръжности с центрове X,У и радиуси R. Открийте до контура на коя окръжност е най-близо/далеч точката с координати Xt,Yt и въведете номерата на две окръжности и проверете дали те се пресичат.

Досега съм направила само това

Sub Main()
Private Sub InputKoordinati(ByRef X() As Double, ByRef Y() As Double, ByRef R() As Double, ByVal N As Integer)
Dim K As Double
For X() = 0 To N - 1
For Y() = 0 To N - 1
Console.Write(K & "(" & X() & "," & Y() & ")=")
K(X(), Y()) = Console.ReadLine()
Next X()
Next Y()
End Sub

Private Sub DisplayKoordinati(ByRef X() As Double, ByRef Y() As Double, ByRef R() As Double, ByVal N As Integer)
Dim K As Double
For X() = 0 To N - 1
For Y() = 0 To N - 1
Console.WriteLine(K & "(" & X() & "," & Y() & ")=" & X(X(), Y()))
Next X()
Next Y()
End Sub

[anonymous908491]

отговора е 4