Найти номера пары точек, растояние между которым наибольшее - VB

Формулировка задачи:

Даны координаты n точек на плоскости: (X1,y1),..., (Xn,Yn) (n < 30 ). Найти намера пары точек, растояние между которым наибольшее (считать что такая пара единственная).

Решение задачи: «Найти номера пары точек, растояние между которым наибольшее»

textual
                            Листинг программы 
                        

                            Sub MaxDist(X() as double, Y() as double)
  n%=Ubound(X,1)
  dmax#=-1
  For i%=1 to n%-1
       For j%=i%+1 to n%
            d#=(X(i%)-X(j%))^2+(Y(i%)-Y(j%))^2
            if d# > dmax# then
               p%=i%
               q%=j%
               dmax#=d#
            End if
         Next j%
    Next i% 
    Debug.Print "Номера максимально удаленных друг от друга точек: ";p%;" ";q%
End Sub
                        

Оцени полезность:

8 голосов , оценка 4.25 из 5

Похожие ответы