Calcul du triangle rectangle
-----------------------------------Variables
base B
angB D
coté C
angC E
hypo H
coni O
péri T - Périmètre (Tour)
surf S
demv W
pent R - Pente
-----------------------------------
PROGRAM:TRIRECT

0→B:0→C:0→H:0→D:0→E:0→I:0→X
0→O:0→T:0→S:0→V:0→W:0→R:0→Y

Degré
EffÉcran

Input "Base  si non zéro ",B
If B≠0
I+1→I

Input "Ang-B si non zéro ",D
If D≠0
I+1→I
If I>1:Goto  X

Input "Côté  si non zéro ",C
If C≠0
I+1→I
If I>1:Goto X

Input "Ang-C si non zéro ",E
If E≠0
I+1→I
If I>1:Goto X

Input "Hypot si non zéro ",H
If H≠0
I+1→I
If I>1:Goto X

Input "%Pent si non zéro ",R
If P≠0
I+1→I
If I>1:Goto X

Input "%Côni si non zéro ",O
If O≠0
I+1→I
If I>1:Goto X

If P≠0 et O≠0
Disp "pas assez d'argument"
Pause :EffÉcran
Stop

Lbl X

If P≠0
tan-1(P/100)→E

#If M≠0
#tan-1(M/200)→E

If B≠0 et E≠0:Then
B/cos(E)→H
B*tan(E)→C
Goto Y
End

If C≠0 et D≠0:Then
C/cos(D)→H
C*tan(D)→B
Goto Y
End

If H≠0 et E≠0:Then
H*cos(E)→B
H*sin(E)→C
Goto Y
End

If H≠0 et D≠0:Then
H*sin(D)→B
H*cos(D)→C
Goto Y
End

If C≠0 et E≠0:Then
C/sin(E)→H
C/tan(E)→B
Goto Y
End

If B≠0 et D≠0:Then
B/sin(D)→H
B/tan(D)→C
Goto Y
End

If B≠0 et C≠0:Then
tan(C/B)→E
B/cos(E)→H
Goto Y
End

If B≠0 et H≠0:Then
sin(B/H)→D
B/tan(D)→C
End

If C≠0 et H≠0:Then
sin(C/H)→E
C/tan(E)→B
End

Lbl Y

If D=0
90-E→D

If E=0
90-D→E

If R=0
tan(E)100→R

If O=0
tan(E)*200→O

H+B+C→T
B*C/2→S
π*B²*H/3→V
V/2→W

arrondir(B,2)→B
arrondir(D,2)→D
arrondir(C,2)→C
arrondir(E,2)→E
arrondir(H,2)→H
arrondir(T,2)→T
arrondir(S,2)→S
arrondir(W,2)→W
arrondir(R,2)→R
arrondir(O,2)→O

EffÉcran
Output(1,1,"Base = "):Output(1,8,B)
Output(2,1,"AngB = "):Output(2,8,D)
Output(3,1,"Côté = "):Output(3,8,C)
Output(4,1,"AngC = "):Output(4,8,E)
Output(5,1,"Hypo = "):Output(5,8,H)
Output(6,1,"Péri = "):Output(6,8,T)
Output(7,1,"Surf = "):Output(7,8,S)
Output(8,1,"DemV = "):Output(8,8,W)
Output(9,1,"Pent%= "):Output(9,8,R)
Output(10,1,"Coni%= "):Output(10,8,O)
Pause 
EffÉcran