Вычислить расстояние между точками в евклидовом пространстве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д