'SOUS LICENSE GPL
ClrText
"AX2+BX+C=0"
?->A
?->B
?->C
B²-4AC->D   'DETERMIN
"DET= ":Locate 16,7,D
If D=0
Then "X0= ":Locate14,7,-B/(2A)       '/ correspond à (a+b/c)
IfEnd
If D>0
Then "X1= "
Locate 4,7,"("
Locate 5,7,-B
Locate 8,7,"-sqrt"                  ' sqrt correspond à racine
Locate 10,7,D
Locate 13,7,")/("
Locate 16,7,2A
Locate 20,7,")"
".  "
Locate 10,7,(-B-sqrt(D))/(2A)
" "
"X2= "
Locate 4,7,"("
Locate 5,7,-B
Locate 8,7,"+sqrt"                  ' sqrt correspond à racine
Locate 10,7,D
Locate 13,7,")/("
Locate 16,7,2A
Locate 20,7,")"
".  "
Locate 10,7,(-B+sqrt(D))/(2A)
IfEnd
If D<0
Then "AUCUNE SOLUTION"
IfEnd