fanofti82 le 15/01/2012 à 12:45
Voilà un programme dans lequel vous entrez les coordonnées de deux points, il vous calcule : la distance entre ces deux points, puis les coordonnées du milieu de ces points.
Il existe en version avec menu, et une autre sans.
Avec menu (283 octets) :
Code
EffEcr
Input “X 1ER PT ? ”,A
Input “Y 1ER PT ? ”,B
Disp “ ”
Input “X 2EME PT ? ”,C
Input “Y 2EME PT ? ”,D
EffEcr
Lbl M
EffEcr
Menu(“COORDONNEES”,“DISTANCE”,1,“MILIEU”,2,“QUITTER”,3)
Lbl 1
{racine carrée}(A-C)²+(B-D)²->E
Disp “DISTANCE ENTRE”
Disp “LES POINTS”,H
Pause
Output(1,1,“
Goto M
Lbl 2
(A+B)/2->F
(C+D)/2->G
Disp “COORDONNEES”,F,G
Pause
Output(1,1,“
Goto M
Lbl 3
EffEcr
Output(1,1,“
Sans menu (204 octets) :
Code
EffEcr
Input "X 1ER PT ? ",A
Input "Y 1ER PT ? ",B
Disp " "
Input "X 2EME PT ? ",C
Input "Y 2EME PT ? ",D
EffEcr
{racine carrée}(A-C)²+(B-D)²->E
Disp "DIST ENTRE PTS:",E
(A+B)/2->F
Disp "ABSCISSE MILIEU",F
(C+D)/2->G
Disp "ORDONNEE MILIEU",G
Pause
EffEcr
Output(1,1,"
Les 2 sont fonctionnels, testés sur une Ti-82 Stats.fr
The K le 15/01/2012 à 22:15
Pour améliorer ...
Code
EffEcr
Input "X 1ER PT ? ",A
Input "Y 1ER PT ? ",B
Input "X 2EME PT ? ",C
Input "Y 2EME PT ? ",D
EffEcr
Disp "DIST ENTRE PTS:",{racine carrée}(A-C)²+(B-D)²
Disp "ABSCISSE MILIEU",(A+B)/2
Disp "ORDONNEE MILIEU
Pause (C+D)/2
EffEcr
Output(1,1,"
sandro le 16/01/2012 à 18:27
Ou encore mieux:
Code
EffEcr
Input "X 1ER PT ? ",A
Input "Y 1ER PT ? ",B
Disp " //juste un guillemet (cette ligne, theK l'avais omise)
Input "X 2EME PT ? ",C
Input "Y 2EME PT ? ",D
EffEcr
Disp "DIST ENTRE PTS:",{racine carrée}(A-C)²+(B-D)²,"ABSCISSE MILIEU",(A+B)/2,"ORDONNEE MILIEU
Pause .5(C+D
EffEcr
Output(1,1," //ou alors Disp au lieux de Output(1,1, : ça prend moins de place,
mais ocupe le ligne du haut.
Sandro
