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 RemObjects Chrome suivant:
NameSpace Delta;
INTERFACE
Uses
System.Text;
type
Prog = class
class method Sqr(X:Real):Real;
class method Distance(x1,y1,x2,y2:Real):Real;
class method Main(Args: array of String);
end;
IMPLEMENTATION
class method Prog.Main(Args: array of String);
begin
Console.WriteLine('Calcul la distance entre deux points (0,0)-(10,10): '+Convert.ToString(Distance(0, 0, 10, 10)));
Console.WriteLine('Calcul la distance entre deux points (2,2)-(10,10): '+Convert.ToString(Distance(2, 2, 10, 10)));
Console.WriteLine('Calcul la distance entre deux points (1,1)-(8,8): '+Convert.ToString(Distance(1, 1, 8, 8)));
end;
class method Prog.Distance(x1,y1,x2,y2:Real):Real;Begin
Result:=Math.sqrt(sqr(y2 - y1) + sqr(x2 - x1));
End;
class method Prog.Sqr(X:Real):Real;Begin
Result:=X*X;
End;
END.
on obtiendra le résultat suivant:
Calcul la distance entre deux points (0,0)-(10,10): 14.142135623731Calcul 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 : Dimanche, le 17 février 2008