Ce programme sert à trouver le produit somme de deux nombres dans la factorisation d'un trinôme.
PROGRAM: PRODSUM
: CLRHOME : PRGM_FACTEUR : INPUT "SOMME:", Z : FOR (T, 1, 2) : FOR (Y, 1, DIM L6) : IF L6 (Y) + L6(DIM L6+1-Y)=Z : THEN : DISP L6 (Y),L6(DIM L6+1-Y) : STOP : END : END : -L6 ® L6 : END : DISP "IMPOSSIBLE"
: CLRHOME : INPUT "A:",A : INPUT "B:",B : INPUT "C:",C : IF B²-4AC<0 : STOP : DISP (-B²+Ö(B²-4AC))/-2UFRAC : DISP (-B²-Ö(B²-4AC))/-2UFRAC