CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 14 21:14:02

IIS7 : CONFIGURATION DES HANDLERS POUR L'UPLOAD DE FICHIER - INTERDIRE CERTAINS FICHIERS DE S'EXéCUTER | ACCéDER à DES FICHIERS .CS, .ASPX par cyril

MICROSOFT ANNONCE LE NOM COMMERCIAL DE WINDOWS 7 par RaptorXP

[SILVERLIGHT] TéLéCHARGEZ LA VERSION FINALE (ET LES OUTILS ASSOCIéS) DèS MAINTENANT ! par Thomas LEBRUN

VILAIN BUG AVEC IQUERYABLE ET LA SYNTAXE YIELD : SYSTEM.BADIMAGEFORMATEXCEPTION "AN ATTEMPT WAS MADE TO LOAD A PROGRAM WITH AN INCORRECT FORMAT. (EXCEPTION FROM HRESULT: 0X8007000B)" par Matthieu MEZIL

SQL SERVER 2008 : UN LIVRE EN COURS DE PRéPARATION ! par christian

RE : COMPOSANTE GRAPHE par cantador

RE : INTERBASE 6.2 par cantador

RE : PROBLèME DE REFRESH DBGRID par cantador

RE : COORECTION ORTHOGRAPHE DANS UN DBMEMO par mos123

RE : PROBLèME AVEC STRINGGRID par Oniria

+ de logiciels à télécharger

1 262 326 membres
675 nouveaux aujourd'hui
14 416 membres club

Trouver une ressource

Trouvez une ressource parmi 38 854 codes, 1 186 867 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FONCTION DISTANCE ENTRE DEUX POINTS

Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 26/05/2002 Date de mise à jour : 26/05/2002 01:21:10 Vu : 1 681

Auteur : fabiin

Site perso

Ecrire un message privé

Note :

3,00 / 10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Une petite fonction ki renvoi la distance entre 2 points en entier.

Source

function Distance(X, Y, X2, Y2: integer): integer;
begin
result := round(sqrt(sqr(X2-X)+sqr(Y2-Y)));
end;

function Distance(X, Y, X2, Y2: integer): integer;
begin
result := round(sqrt(sqr(X2-X)+sqr(Y2-Y)));
end;

Sources du même auteur

CAPTUER LE SON SORTANT ET L'ENREGISTRER DANS UN FICHIER WAV

CALCUL D'UNE MOYENNE

CHANGER LA DURÉE D'AFFICHAGE DES BULLES D'AIDES (HINT)

ASCII-T : PETIT SOFT D'ASCII ART.

CHANGER CONTRASTE / LUMINOSITÉ (L'ALGORITHME)

Toutes les sources de fabiin

Sources de la même categorie

RÉSOLUTION D'UN SYSTÈME LINÉAIRE NXP PAR LA MÉTHODE DU PIVOT... par tim62

RECHERCHE OPÉRATIONNELLE par DevMln

PROGRAMME PASCAL (( MODULE: THÉORIE DES GRAPHES )) par offlake

MA PETITE COMBINE par cantador

CONVERSION DE TEMPERATURE par noch100

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de Gysmo le 26/05/2002 01:44:47

Merci Pythagore on dit!

@+

Commentaire de fabiin le 26/05/2002 01:50:19

lol ;)

Commentaire de Delphiprog le 26/05/2002 11:02:04 administrateur CS

Sachez qu'il existe une fonction dans la librairie Math.pas qui calcule l'hypoténuse, car il faut bien appeler les choses par leur nom, et qui renvoie un résultat de type Extended.
------------------------------------------------
Hypot calcule la longueur de l'hypoténuse.
Unité : Math
Catégorie : routines trigonométriques

function Hypot(X, Y: Extended): Extended;

soit :
Result := Hypot((X2-x), (Y2-Y));