  |
|
| 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
|
|
 |
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.
|
 |
  |
| |
dysto
Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
|
Posté le : Mer 21 Oct 2009, 16:04
|
|
|
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 ^^ !
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
| |
|
|
| |
Page générée en 6 requêtes |
|
|
