Tout le monde (je pense) a eu un probleme avec les identites remarquables.
Code
ClrHome
Output(4,3,"LES PRODUITS3
Output(5,3,"REMARQUABLES"
Pause
ClrHome
Lbl Y
Menu("PAR MOI(BIEN SUR)","DEVELOPPEMENTS",D,"FACTORISATIONS",F,"QUITTER",Z
Lbl D
Menu("DEVELOPPEMENTS","(A-B)(A+B)",M,"(A+B)²",N,"(A-B)²",O,"RETOUR",X
Lbl F
Menu("FACTORISATIONS","A²-B²",P,"A²+2AB+B²",R,"A²-2AB+B²",Q,"RETOUR",X
Lbl X
Goto Y
Lbl M
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A-B)(A+B)->E
Disp "(A-B)(A+B)="
Disp E
Pause
ClrHome
Goto Y
Lbl N
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A+B)²->E
Disp (A+B)²="
Disp E
Pause
ClrHome
Goto Y
Lbl O
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
(A-B)²->E
Disp "(A-B)²="
Disp E
Pause
ClrHome
Goto Y
Lbl P
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²-B²->E
Disp "A²-B²="
Disp E
Pause
ClrHome
Goto Y
Lbl Q
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²+2*A*B+B²->E
Disp "A²+2AB+B²="
Disp E
Pause
ClrHome
Goto Y
Lbl R
Input "VALEUR DE A?",A
Input "VALEUR DE B?",B
A²-2*A*B+B²->E
Disp "A²-2AB+B²="
Disp E
Pause
ClrHome
Goto Y
Lbl Z
Stop