Section courante

A propos

Section administrative du site

Calculer la distance entre deux couples (deux points) est souvent utile pour trouver le meilleure chemin sur une carte. La formule pour trouver la distance entre deux points s'inspire de la formule de Pythagore (c2=√a2+b2) et de ses théories sur les triangles. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Visual Basic .NET suivant :

  1. Module Module1
  2.  
  3.     Function Sqr(ByVal a As Double) As Double
  4.         Return a * a
  5.     End Function
  6.  
  7.     Function Distance(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Double
  8.         Return Math.Sqrt(Sqr(y2 - y1) + Sqr(x2 - x1))
  9.     End Function
  10.  
  11.     Sub Main()
  12.         Console.WriteLine("Calcul la distance entre deux points (0,0)-(10,10): " & Distance(0, 0, 10, 10))
  13.         Console.WriteLine("Calcul la distance entre deux points (2,2)-(10,10): " & Distance(2, 2, 10, 10))
  14.         Console.WriteLine("Calcul la distance entre deux points (1,1)-(8,8): " & Distance(1, 1, 8, 8))
  15.     End Sub
  16.  
  17. End Module

on obtiendra le résultat suivant :

Calcul la distance entre deux points (0,0)-(10,10): 14.142135623731
Calcul la distance entre deux points (2,2)-(10,10): 11.3137084989848
Calcul la distance entre deux points (1,1)-(8,8): 9.89950

Dernière mise à jour : Samedi, le 22 octobre 2016