Gamme TI-82


Poster un nouveau sujet Poster une réponse
Pythagore
Auteur Message
dysto



Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mer 21 Oct 2009, 1:19   Citer 

J'ai fait Pythagore dans la foulée de Thalès, voici le code :


Code

:Lbl 1
:EffEcr
:Menu("VALEUR:",
"HYPOTENUSE",H1,
"AUTRE",U2
:Lbl H1
:Prompt A,B
:Disp √(A²+B²)
:Disp √(A²+B²)>F
rac
:Pause
:EffEcr
:Stop
:Lbl U2
:Prompt B,C
:Disp √(C²-B²)
:Disp √(C²-B²)>F
rac
:Pause
:EffEcr
:Stop



Pour "AUTRE", A est la longueur recherché une des autres longueurs à part l'hypoténuse.

C'est une version 1.1, très basique.

Sur ce,

Bonne nuit et bonne programmation.

dysto.

P.S.: √ = Racine carrée, je sais pas comment la faire.

 Adresse email Haut de page Bas de page 
 
dysto



Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mer 21 Oct 2009, 16:04   Citer 

Voici la version 2.1 tant attendue ! (?) xD


Code

:Lbl 1
:EffEcr
:Menu("VALEUR:",
"HYPOTENUSE",H1,
"OPP OU ADJ",U2,
"QUITTER",Q3
:Lbl H1
:Prompt A,B
:Disp A²
:Disp B²
:Disp A²+B²
:Disp Racine Carrée (le symbole)(A²+B²)
:Output(3,1,"A²:
")
:Output(4,1,"B²:
")
:Output(5,1,"A²+
B²:")
:Output(6,1,"Racine Carrée (le symbole)()
")
:Pause
:EffEcr
:Stop
:Lbl U2
:Prompt B,C
:Disp B²
:Disp C²
:Disp C²-B²
:Disp Racine Carrée (le symbole)(C²-B²)
:Output(3,1,"B²:
")
:Output(4,1,"C²:
")
:Output(5,1,"C²-
B²:")
:Output(6,1,"Racine Carrée (le symbole)()
"
:Pause
:EffEcr
:Stop
:Lbl Q3
:EffEcr
:Output(1,1,"



Voila ^^ !

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink