Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Thalès

Page: 1, 2 >>

Thalès

Auteur

Message

dysto
Invité

Posté le : Mar 20 Oct 2009, 19:38

Voila, je suis nouveau dans ce "monde" de la calculette.
Malgré cela, j'ai réalisé pour le "fun" un programme pour le théorème de Thalès pour la calculette qui marche parfaitement.
Si ça peut servir, je me dis que le poster n'est peut-être pas une mauvaise idée.

Code

:Lbl 1
:EffEcr
:Menu("VALEUR:",
"CHERCHE A",A1,"
CHERCHE B",B2,"C
HERCHE C",C3,"CH
ERCHE D",D4
:Lbl A1
:Prompt B,C,D
:Disp (B*C)/D
:Pause
:EffEcr
:Stop
:Lbl B2
:Prompt A,C,D
:Disp (A*D)/C
:Pause
:Effecr
:Stop
:Lbl C3
:Prompt A,B,D
:Disp (A*D)/B
:Pause
:EffEcr
:Stop
:Lbl D4
:Prompt A,B,C
:Disp (B*C)/A
:Pause
:EffEcr
:Stop

Code

A C
- = -
B D

A correspond à une petite longueur sur une grande longueur B.
C correspond à une petite longueur sur une grande longueur D.

En gros ça donne ça :

Dans ce cas la on cherche A, donc dans le programme on choisira: "CHERCHE A", on tapera la valeur de B (4), la valeur de C (4) et la valeur de D (6).
Le calcul sera le suivant :
(B*C)/D
(4*4)/6
16/6
2.6666666667

Voila, c'est tout bête mais ça peut servir.
La version est 1.1 car beaucoup d'amélioration peuvent être misent en place mais cette version est la plus légère.

Voila,

dysto.

dysto
Invité

Posté le : Mar 20 Oct 2009, 19:40

L'image s'affiche pas, je sais pas pourquoi mais voila le lien sinon :

http://img8.imageshack.us/img8/3194/thales.gif

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 20 Oct 2009, 19:53

Met un >Frac après ton résultat pour avoir le résultat sous forme fractionnaire, ça sera plus lisible.

Sangohan38

dysto
Invité

Posté le : Mar 20 Oct 2009, 20:13

Je cherchais justement comment faire, merci ^^ !
J'ai mis pour que le résultat s'affiche sous forme décimal et fractionnaire.

Code

:Lbl 1
:EffEcr
:Menu("VALEUR:",
"CHERCHE A",A1,"
CHERCHE B",B2,"C
HERCHE C",C3,"CH
ERCHE D",D4
:Lbl A1
:Prompt B,C,D
:Disp (B*C)/D
:Disp (B*C)/D>Frac
:Pause
:EffEcr
:Stop
:Lbl B2
:Prompt A,C,D
:Disp (A*D)/C
:Disp (A*D)/C>Frac
:Pause
:Effecr
:Stop
:Lbl C3
:Prompt A,B,D
:Disp (A*D)/B
:Disp (A*D)/B>Frac
:Pause
:EffEcr
:Stop
:Lbl D4
:Prompt A,B,C
:Disp (B*C)/A
:Disp (B*C)/A>Frac
:Pause
:EffEcr
:Stop

dysto
Invité

Posté le : Mar 20 Oct 2009, 20:32

Je n'arrive pas à faire en sorte de pourvoir arrondir le résultat au dixième, centième etc, comment faire ?

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Mar 20 Oct 2009, 23:10

J'ai plus ou moins trouvé la réponse dans le "Float" mais je ne sait pas comment l'insérer dans le programme pour qu'il ne s'applique pas à toute les valeurs...

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Jeu 22 Oct 2009, 19:21

Met Float juste avant et autre chose comme Fixe0 juste après

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

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Jeu 22 Oct 2009, 20:11

J'ai essayé ça mais Syntax Error et le problème viendrait de

Code

Flottant

Code

:Disp Flottant(B*C)/DFixe 0

?????

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Jeu 22 Oct 2009, 22:14

essaye :

Code

:Flottant
:Disp (B*C)/D
:Fixe 0

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Google_AdSense

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Ven 23 Oct 2009, 22:21

J'ai essayé, ça me donne un résultat normal, sans qu'il ai pris en compte le Float et le Fixe 0.

...

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Ven 23 Oct 2009, 23:02

Bing, tu voulais que le ressultat s'affiche en flottant (avec virgule) ou en fixe0 (sans virgule) ?

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Google_AdSense

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Ven 23 Oct 2009, 23:27

Alors, j'ai re-essayé avec Fixe 2,3 etc... et en faite il m'affiche juste genre 3 chiffres après la virgule si Fixe 3 et 2 si Fixe 2 donc c'est inutile puisque ça n'arrondit pas.

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Ven 23 Oct 2009, 23:29

non en effet
mais il y a une fonction arrondi(

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Ven 23 Oct 2009, 23:33

J'ai essayé en faisant :

:Disp arrondi((B*C)/D) mais ça ne change rien au résultat, tu as une autre idée pour l'insérer ? Il me semble que j'avais essayé au début et que le résultat ne correspondait pas du tout... je l'avais peut-être déjà mal inséré ? ^^