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