Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



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

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
Avatar

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 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa