NickyRomero le 08/10/2014 à 22:32
Salut,
Aujourd'hui je viens de finir un programme conçu par mes soins pour calculer rapidement la vitesse, la distance ou encore le temps d'un trajet.
Pour cela, je vais écrire ci-dessous le code que vous devrez recopier sur votre calculette.
PS : Je tiens a préciser que je programme depuis peu seulement et que mon codage n'est pas forcément le mieux adaptés ou le plus court mais au final il marche très bien donc pas la peine de dire que c'est très simple et tout et tout, JE LE SAIS !!! kissous et bon recopiage
RAPPEL : (sto) voudra dire la 2nde touche de votre calculette en bas à gauche en partant vers le haut
---------------------------------------
Code
:Menu("CALCUL V,D,T","VITESSE",A,"DISTANCE",B,"TEMPS",C,"QUITTER",Q)
:Lbl A
:EffEcr
:Input "DISTANCE :",D
:Input "TEMPS :",T
: D/T(sto)X
:Disp "VITESSE :",X
:Stop
:Lbl B
:EffEcr
:Input "VITESSE :",V
:Input "TEMPS :",T
: V*T(sto)Y
:Disp "DISTANCE :",Y
:Stop
:Lbl C
:EffEcr
:Input "DISTANCE :",D
:Input "VITESSE :",V
: D/V(sto)Z
:Disp "TEMPS :",Z
:Stop
:Lbl Q
:Output(1,1,""
:EffEcr
--------------------------------
En espérant que ce programme vous servira, dites moi si vous n'avez pas compris ou si vous voulez que je vous fasse d'autres tutos
Mingerton le 11/10/2014 à 20:01
Bienvenue sur le forum !
Deux trois trucs à changer :
1- Au lieu de rupture sauvage avec Stop, je te conseille plutôt un retour au menu principal avec un simple label en plus ;
2- Effacer l'écran à la sortie d'un menu est inutile, c'est fait automatiquement ;
3- Il est inutile de précalculer les expressions avant de les afficher ;
4- J'ai aussi enlevé quelques caractères qui sont retirables sans dommages (parenthèse en fin de ligne, multiplier, ...) ;
Voilà ce que je te propose :
Code
:Lbl M
:Menu("CALCUL V,D,T","VITESSE",A,"DISTANCE",B,"TEMPS",C,"QUITTER",Q
:Lbl A
:Input "DISTANCE :",D
:Input "TEMPS :",T
:Disp "VITESSE :",D/T
:Pause:Goto M
:Lbl B
:Input "VITESSE :",V
:Input "TEMPS :",T
:Disp "DISTANCE :",VT
:Pause:Goto M
:Lbl C
:Input "DISTANCE :",D
:Input "VITESSE :",V
:Disp "TEMPS :",D/V
:Pause:Goto M
:Lbl Q
:Output(1,1,""
Au détriment de la présentation, tu aurais pu aussi remplacer tes Input par des Prompt en choisissant des variables représentant des variables usuelles d'exercices. Une version par exemple :
Code
:Lbl M
:Menu("CALCUL V,D,T","VITESSE",A,"DISTANCE",B,"TEMPS",C,"QUITTER",Q
:Lbl A
:Prompt D,T
:Pause D/T
:Goto M
:Lbl B
:Prompt V,T
:Pause VT
:Goto M
:Lbl C
:Prompt D,V
:Pause D/V
:Goto M
:Lbl Q
:Output(1,1,""
N'hésite pas à me demander si tu n'as pas compris mes modifications !
