AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 04:44:51
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 : 2 178
Auteur : fabiin Site perso
Ecrire un message privé
Note :
3 / 10 - par 1 personne
3,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (6)
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;

Commentaires et avis

signaler à un administrateur
Commentaire de Gysmo le 26/05/2002 01:44:47

Merci Pythagore on dit!

@+

signaler à un administrateur
Commentaire de fabiin le 26/05/2002 01:50:19

lol ;)

signaler à un administrateur
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));

signaler à un administrateur
Commentaire de fabiin le 26/05/2002 11:35:51

bien vu :-)

signaler à un administrateur
Commentaire de tsainvet le 07/01/2009 10:40:25

bonjour  vous allez etres peut etre mes sauveur ?
voila  jai une question ?
jai essayer  vos formule  mais j'obtien pas ce que je veux ?
j'explique rapido ce que je souhaite faire
jaimerais calculé la distance  d'un point  a un autre

sachant que le point est representé par un carré sur une grille  de  200 par 200 carré


ex: village xa yb  et je vais au village xb yb
je met  00:12 minute  par carré a me deplacé

je part a une date et heure que je choisi

combien de temp je vais mettre et a quel heures j'arrive et a quel date

voila

exemple :


//cordonnées saisie dans un Tedit


village  Tedit1 (xa)   Tedit2 (ya)
village  Tedit3 (xb)   Tedit1 (yb)

//saisie du temp de déplacement en minute
temps dep  tedit4 (00:12)
TM

//saisie heure de depart
heures dep  tedit5(00:00:00)
HD

//saisie date de depart
date dep tedit6 (01 décembre 2009)
DDP

// afficHage calcule deplacement EN TEMP  de (xa,yb) à (xb,yb)
AFICHAGE TDP tedit7(05:55:00)


//affichage  heure arrivée
heure arrivée tedit9(00:00:00)
HAR

//affichage  date arrivé
AR tedit8 (02 décembre 2009)



seriez vous m'expliqué comment je peu posé cela ?

j'y  suis arrivé sous excel  maissou delphi  j'y arrive po
voici mon mail perso  tsainvet@yahoo.fr si jamais vous auriez un petit exemple a me  montrer ou juste pour d'autre info .. si vous y arrivé  vous me sorté de la panade.

merci

signaler à un administrateur
Commentaire de tsainvet le 13/01/2009 10:27:01

bon bin jai trouver ma solution bien que les chiffres a vigule il en veut pas

si vous avez une un solution

voici le code

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, math, StdCtrls, ComCtrls;

type
  TForm10 = class(TForm)
    Edit5: TEdit;
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit6: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR
  d: real;
  ax, ay, bx, by, vitesse, temps: Extended;
  heure, minute : Extended;
  seconde : integer;
begin
  ax := StrToInt(Edit1.Text);
  ay := StrToInt(Edit2.Text);

  bx := StrToInt(Edit3.Text);
  by := StrToInt(Edit4.Text);
  vitesse := StrToInt(Edit5.Text);

  // calcul de la distance entre A et B
  d := sqrt(power(ax - bx, 2) + power(ay - by, 2));

  temps := d * vitesse;

  heure :=  temps / 60 ;
  minute := temps - (Floor(heure) * 60);
  seconde := round((temps - (Floor(heure) * 60) - Floor(minute)) * 60);

  DateTimePicker3.Time := DateTimePicker2.Time + (heure / 24);
  DateTimePicker4.Date := DateTimePicker1.Date + (heure / 24);

  Edit6.Text :=  IntToStr(Floor(heure))+' h '+
                 IntToStr(Floor(minute))+' min '+
                 IntToStr(seconde)+' sec';

end;


end.


Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Adobe Flex Builder
Entre 607€ et 607€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo cascades de plitvicePhoto plan seul

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.