Poster un nouveau sujet Poster une réponse
Milieu de deux coordonnées et distance entre celles-ci
Auteur Message
fanofti82



Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 07 Jan 2012, 21:40
Posté le : Dim 15 Jan 2012, 12:45   Citer 

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

----------------------
Ti-82 Stats.fr
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
The K



Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Dim 15 Jan 2012, 22:15   Citer 

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,"



----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 16 Jan 2012, 18:27   Citer 

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

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
TaylorW



Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 16 Mar 2013, 12:33
Posté le : Sam 16 Mar 2013, 12:52   Citer 

Bonjour, j'ai une question à propos du programme avec le menu comment doit-on représenté les accolades dans lequel est écrit racine carré? Est ce qu'on fait les accolades puis on écrit "racine carrée" ou bien on fait les accolades pui dans celle ci on appuie sur la touche X2?

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Mar 2013, 15:10   Citer 

C'est une convention pour signaler la présence du caractère spécial de la racine carrée. Il se saisit avec le clavier : [2nde]+[x²]
Donc remplace la totalité de l'expression {racine carrée} par le caractère.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes