Facteur

    Ce programme sert à chercher tous les facteurs d'un nombre.

PROGRAM: FACTEUR

: CLRLIST   L6
: 1 ® Y
: CLRHOME
: INPUT    "LE NOMBRE:", V
: ABS    V®Z
: FOR (W, 1, ÖZ)
: IF    REMAINDER (Z,W) = 0
: THEN
: DISP    W
: W ® L6 (Y)
: Y + 1 ® Y
: END
: END
: FOR(U,DIM    L6,1,-1)
: Z/L6(U)®L6(DIM    L6+1)
: DISP    MAX(L6)
: END
: IF    V<0
: THEN
: FOR (T, 1, DIM  L6)
: -L6 (T)® L6 (DIM  L6+1)
: END
: END
: DISP    L6