TRIANGL

    Ce programme sert à résoudre un triangle quelconque soit en connaissant quelque informations. Si vous ne connaissez l'informations demandé, tapez 0. On vous demande un angle et son coté opposé. AA veut dire angle A et CA le coté A.

PROGRAM: TRIANGL

: CLRHOME
: DEGREE
: 0®Z
: CLRLIST L5,L6
: FOR(Z,1,3)
: DISP Z
: INPUT    "ANGLE:",0
: 0®L5(Z)
: INPUT    "COTÉ:",C
: 0®L6(Z)
: END
: FOR(Z,1,4)
: SORTA(L5,L6)
: IF L5(2)≠0
: 180-L5(3)-L5(2)®L5(1)
: SORTA(L5,L6)
: IF (L5(3)=90)+((SUM (L6=0))=1)=2
: THEN
: IF L6(1)=0
: Ö(L6(3)²-L6(2)²)®L6(1)
: IF L6(2)=0
: Ö(L6(3)²-L6(1)²)®L6(2)
: IF L6(3)=0
: Ö(L6(1)²+L6(2)²)®L6(3)
: END
: SORTA(L5,L6)
: MAX((L5≠0)(L6≠0)({1,2,3}))®Y
: IF Y=0
: GOTO 1
: MAX((((L5=0)+(L6=0))=1)({1,2,3})®X
: IF X=0
: GOTO 1
: IF L5(X)=0
: SIN^-1 (SIN L5(Y) x L6(X)/L6(Y))®L5(X)
: IF L6(X)=0
: SIN L5(X) x L6(Y) / SIN L5(Y)®L6(X)
: LBL 1
: SORTA(L6,L5)
: IF ((L5(1)≠0)+(L6(1)=0)+(L6(2)≠0))=3
: Ö((L6(2)²+L6(3)²-2(L6(2))(L6(3))COS   L5(1)))®L6(1)
: SORTA(L5,L6)
: IF (((SUM    (L6≠0))=3)+(L5(1)=0))=2
: COS^-1     ((L6(2)²+L6(3)²-L6(1)²)/(2 x L6(2) x L6(3)))®L5(1)
: IF    (SUM    ((L6≠0)+(L5≠0)))=6
: GOTO    9
: END
: LBL    9
: DISP    "AA",L5(1),"CA",L6(1),"AB",L5(2),"CB",L6(2),"AC",L5(3),"CC",L6(3)