ClrText
"AX^3+BX²+CX+D"
"A"?->A
"B"?->B
"C"?->C
"D"?->D
-3->E
While AE^3+BE²+CE+D!=0          '!=  différent
E+1->E
If E>3
Then "PAS DE RACINES EVIDENTE"
Stop
IfEnd
WhileEnd
" ":Locate 1,7,"RACINE"
Locate 15,7,E
'GX2+HX+I
A->G
AxE+B->H
C+Ex(B+(AxE))->I
" "
Locate 4,7,-E
Locate 6,7,")("
Locate 8,7,G
Locate 11,7,"X²+"
Locate 14,7,H
Locate 16,7,"X+"
Locate 18,7,I
Locate 21,7,")"
G¤			'¤ correspond au triangle
H¤
I¤
H²-GI->L
If L=0 
Then " "
Locate 1,7,G
Locate 5,7,"(X+"
Locate 8,7,H/(2G)		 '/ correpond à (a+b/c)
Locate 12,7,")²"
IfEnd  
If L<0 
Then "PAS DE FACT SUP"
IfEnd  
Then " "
Locate 1,7,G
Locate 3,7,"(X+"
Locate 6,7,-((-B-L)/(2A))		 '/ correpond à (a+b/c)
Locate 9,7,")(X+"
Locate 13,7,-((-B+L)/(2A))
Locate 17,7,")"
IfEnd