Вычислить расстояние между точками в евклидовом пространстве - VB

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

1. точки А и В заданы координатами в n-мерном арифметическом пространстве. вычислить расстояние между этими точками в евклидовом пространстве (Одномерный массив)

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function Dist(A() as double, B() as double) As Double
     for i%=1 to Ubound(A,1)
         Dist=Dist+(A(i%)-B(i%))^2
     Next i%
     Dist=sqr(Dist)
End Sub

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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