Ce programme sert ŕ additionner des vecteurs. Vous devez entrer les grandeurs et les angles du vecteur et vous aurez le résultant.
PROGRAM: VECTEUR
: DEGREE
: CLRHOME
: INPUT "NBR
VECTEURS:", A
: CLRLIST L5,L6
: FOR (Z, 1, A)
: DISP Z
: INPUT "GRANDEUR:",Y
: INPUT "ANGLE:",X
: YxCOS X®
L5(Z)
: YxCOS X®
L5(Z)
: END
: DISP ""
: SUM L5®
L5(DIM L5+1)
: SUM L6®
L6(DIM L6+1)
: DISP "DISTANCE",Ö(L5(DIM L5)2+L6(DIM
L6)2)
: RUP0(L5(DIM
L5),L6(DIM L6))®
A
: IF A<0
: 360+A®
A
: DISP "ANGLE",A