Gamme TI-82


Poster un nouveau sujet Poster une réponse
Et ViVe la TRIGO
Auteur Message
Egoutagny
Avatar

Autorisation : Membre
Nb de messages : 57
Inscrit le : Mer 14 Nov 2007, 18:29
Posté le : Jeu 03 Avr 2008, 21:24   Citer 

Bonjour à tous,

Voilà un petit programme pour connaître les angles et les longueurs d'un triangle rectangle. (programme de 3ème)

Un de mes premier donc si il y a des bugs c'est un peu normal...


Code
ClrHome
Disp "PROG BY EAG"
Pause
ClrHome
Disp "DANS UN TRIANGLE","ABC RECTANGLE EN","A, ON CHERCHE:","L'ANGLE B"
Pause
ClrHome
Menu("TRIGONOMETRIE","cos(B)=AB/BC",1,"sin(B)=AC/BC",2,"tan(B)=AC/AB",3,"QUITTER",Q
Lbl Q
Stop
Lbl 1
Menu("CHOISIR INCONNUE","B",A,"AB",B,"BC",C)
Lbl A
Input "AB=",Y
Input "BC=",X
cosñ(Y/X)üÁ
Goto Á
Lbl B
Input "B=",Y
Input "BC=",X
cos(Y)*XüÁ
Goto Á
Lbl C
Input "B=",Y
Input "AB=",X
X/cos(Y)üÁ
Goto Á
Lbl 2
Menu("CHOIX INCONNUE","B",I,"AC",D,"BC",E)
Lbl I
Input "AC=",Y
Input "BC=",X
sinñ(Y/X)üÁ
Goto Á
Lbl D
Input "B=",Y
Input "BC=",X
sin(Y)*XüÁ
Goto Á
Lbl E
Input "B=",Y
Input "CA=",X
X/sin(Y)üÁ
Goto Á
Lbl 3
Menu("CHOIX INCONNUE","B",F,"AB",G,"AC",H)
Lbl F
Input "AB=",Y
Input "AC=",X
tanñ(X/Y)üÁ
Goto Á
Lbl G
Input "B=",Y
Input "AC=",X
X/tan(Y)üÁ
Goto Á
Lbl H
Input "B=",Y
Input "AB=",X
tan(Y)*XüÁ
Goto Á
Lbl Á
Á



----------------------
Chut je programme...
 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