Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1896
Réponses : 3
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Distance et milieu dans un repère et division euclidienne

ashtrail le 22/03/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
linkakro le 22/03/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.
ashtrail le 22/03/2012 à 17:27
Merci pour ces infos complémentaires (et ces compliments)
sandro le 22/03/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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.