...Rammstein...
12-26-2016, 18:02
Здравейте хора! Наистина съм закъсала, кой ли не питах и нищо. Имам да направя две задачи в една работейки с 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
Условията са: дадени са 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