Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un Pythagore amélioré

Un Pythagore amélioré

Auteur

Message

pito2901

Autorisation : Membre
Nb de messages : 106
Inscrit le : Sam 20 Avr 2013, 15:43

Posté le : Dim 19 Mai 2013, 13:12

Bonjour à tous !
Voici le programme du théorème de Pythagore amélioré qui calcule les longueurs dans un triangle rectangle je posterais plus tard un autre programme de ce genre qui permettra de dire si le triangle rentrée est rectangle ou non, et qui permettra aussi de calculer les longueurs.

Voici le programme de base:

Code

EffEcr
Input "POINT RECTANGLE",Chaîne1
Chaîne1
Input "POINT 2",Chaîne1
Rép+Chaîne1
Input "POINT 3",Chaîne1
Rép+Chaîne1->Chaîne1

EffEcr
Disp "DANS LE TRIANGLE"
Output(2,1,sous-chaîne(Chaîne1,2,1
Output(2,2,sous-chaîne(Chaîne1,1,1
Output(2,3,sous-chaîne(Chaîne1,3,1
Output(2,5,"RECTANGLE"
Output(3,1,"EN "
Output(3,4,sous-chaîne(Chaîne1,1,1
Pause
EffEcr
Menu("CALCUL","HYPOTENUSE "+sous-Chaine(Chaîne1,2,1)+sous-Chaîne(Chaîne1,3,1),1
,sous-chaîne(Chaîne1,2,1)+sous-chaîne(Chaîne1,1,1),2
,sous-chaîne(Chaîne1,3,1)+sous-chaîne(Chaîne1,1,1),3
Lbl 1
Input "LONGUEUR "+sous-chaîne(Chaîne1,2,1)+sous-chaîne(Chaîne1,1,1)+":",A
Input "LONGUEUR "+sous-chaîne(Chaîne1,3,1)+sous-chaîne(Chaîne1,1,1)+":",B
(racine carré)(A²+B²)->C
Output(3,1,"HYPOTHENUSE:"
Output(3,14,C
Pause
Goto 4
Lbl 2
Input "HYPOTENUSE "+sous-Chaine(Chaîne1,2,1)+sous-Chaîne(Chaîne1,3,1)+":",D
Input "LONGUEUR "+sous-chaîne(Chaîne1,3,1)+sous-chaîne(Chaîne1,1,1)+":",E
(racine carré)(D²-E²)->F
Output(4,1,"LONGUEUR"
Output(4,10,sous-chaîne(Chaîne1,2,1)
Output(4,11,sous-chaîne(Chaîne1,1,1)
Output(4,13,F
Pause
Goto 4
Lbl 3
Input "HYPOTENUSE "+sous-Chaine(Chaîne1,2,1)+sous-Chaîne(Chaîne1,3,1)+":",G
Input "LONGUEUR "+sous-chaîne(Chaîne1,2,1)+sous-chaîne(Chaîne1,1,1)+":",H
(racine carré)(G²-H²)->I
Output(3,1,"LONGUEUR"
Output(3,10,sous-chaîne(Chaîne1,3,1)
Output(3,11,sous-chaîne(Chaîne1,1,1)
Output(3,13,I
Pause
Goto 4
Lbl 4
EffEcr
Stop

----------------------
visitez ma page ti82stats.fr

linkakro

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

Posté le : Dim 19 Mai 2013, 17:11

Bien. Cela fait gagner du temps en exercice.

Pense à citer les sources tant que c'est frais.
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=3781

Si tu veux simplifier le code en sacrifiant deux autres variables de texte, tu peux remplacer les sous-Chaîne(Str1,X,1) par StrX avec X le numéro et stocker directement les saisies dedans.

Code

EffEcr
Input "POINT RECTANGLE",Chaîne1
Input "POINT 2",Chaîne2
Input "POINT 3",Chaîne3

EffEcr
Disp "DANS LE TRIANGLE"
Output(2,1,Chaîne2
Output(2,2,Chaîne1
Output(2,3,Chaîne3
Output(2,5,"RECTANGLE"
Output(3,1,"EN "
Output(3,4,Chaîne1
Pause
EffEcr
Menu("CALCUL","HYPOTENUSE "+Chaîne2+Chaîne3,1
,Chaîne2+Chaîne1,2,Chaîne3+Chaîne1,3
Lbl 1
Input "LONGUEUR "+Chaîne2+Chaîne1+":",A
Input "LONGUEUR "+Chaîne3+Chaîne1+":",B
(racine carré)(A²+B²)->C
Output(3,1,"HYPOTHENUSE:
Output(3,14,C
Pause
Goto 4
Lbl 2
Input "HYPOTENUSE "+Chaîne2+Chaîne3+":",D
Input "LONGUEUR "+Chaîne3+Chaîne1+":",E
(racine carré)(D²-E²)->F
Output(4,1,"LONGUEUR"
Output(4,10,Chaîne2
Output(4,11,Chaîne1
Output(4,13,F
Pause
Goto 4
Lbl 3
Input "HYPOTENUSE "+Chaîne2+Chaîne3+":",G
Input "LONGUEUR "+Chaîne2+Chaîne1+":",H
(racine carré)(G²-H²)->I
Output(3,1,"LONGUEUR"
Output(3,10,Chaîne3
Output(3,11,Chaîne1
Output(3,13,I
Pause
Goto 4
Lbl 4
EffEcr
Stop

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

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un Pythagore amélioré

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

Flux RSS