Egoutagny le 03/04/2008 à 21:24
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 Á
Á 