Autorisation : Membre
Nb de messages : 149
Inscrit le : Jeu 13 Oct 2011, 15:48
Posté le : Jeu 22 Mar 2012, 17:09
Voici un autre prog. Je n'ai fait aucun de ces trois progs en un ce sont mon profs de math et mon cahier de maths qui les ont conçus cependant je les ai amélioré et mis tous dans un même prog : MATHS. C'est très pratique et c'est 253 de mémoire.DISTANCE permet de calculer la distance entre deux points d'un repère grâce à leurs coordonnées pour MILIEU c'est le milieu d'un segment dans un repère, et DIVISION c'est la division euclidienne qui n'existe pas si vous avez une ti 82,stats ou stats.fr. -> c'est sto (au dessus du bouton on) voila, voila:
Code
:Lbl M
:EffEcr
:Menu("MENU","DISTANCE",D,"MILIEU",E,"DIVISION",P,"QUITTER",Q
:Lbl Q
:Stop
:Lbl D
:Prompt A,B,C,D
:(racine carré de)(B-A)²+(D-C)²)->H
:Disp "DISTANCE DE AB:",H
:Pause
:Goto M
:Lbl E
:Prompt A,B,C,D
:(A+C)/2->G
:(B+D)/2->F
:Disp "COORDONEES DU MILIEU:",G,"ET",F
:Pause
:Goto M
:Lbl P
:partEnt(A/B)->Q
:A-B*Q->R
:Disp "Q=",Q
:Disp "R=",R
:Pause
:Goto M
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 22 Mar 2012, 17:24
Attention pour ceux qui espèreraient saisir le code dans une calculatrice en anglais :
il faut traduire partEnt() par int() pour avoir des résultats juste dans les nombres négatifs.
Je n'ai pas l'intention de chercher à l'optimiser car il est déjà léger et lisible à la fois.
---------------------- 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)
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 22 Mar 2012, 20:51
Pas mal même si on peut encore grappier quelques octés :
Code
:Lbl M
:EffEcr
:Menu("MENU","DISTANCE",D,"MILIEU",E,"DIVISION",P,"QUITTER",Q
:Lbl Q //met cette ligne tout à la fin, elle t'évitera aisi d'avoir à mettre un stop
:Stop //à enlever si tu suis le conseil de la ligne ci-dessus
:Lbl D
:Prompt A,B,C,D
:(racine carré de)(B-A)²+(D-C)²)->H // tu peux enlever la parrentèse de juste avant le ->
:Disp "DISTANCE DE AB: //suppression du ",H
:Pause H //rajout du H
:Goto M
:Lbl E
:Prompt A,B,C,D
:(A+C)/2->G //devient .5(A+C->G
:(B+D)/2->F //devient .5(B+D->F
:Disp "COORDONEES DU MILIEU:",G,"ET //suppression du ",F
:Pause F //rajout du F
:Goto M
:Lbl P
:partEnt(A/B)->Q //tu peux enlevet la parenthèse d'avant le ->
:A-B*Q->R //Tu peut enlever le *
:Disp "Q=",Q \remplace ces 3 lignes par
:Disp "R=",R | :Disp "Q=",Q,"R=
:Pause / :Pause R
:Goto M
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes