Second degré


 Avec un TI: Avec une Casio
 PROGRAM:DEGRE2
:Prompt A,B,C
:B2-4ACD
:Disp "DELTA",DFrac
:If D>0 
:Then 
:Disp "2 SOL"
:Disp(-B-√(D))/(2A)Frac
:Disp(-B+√(D))/(2A)Frac
:Else 
:If D=0 
:Then 
:Disp "1 SOL",-B/(2A)Frac
:Else 
:Disp "0 SOL" 
:End 
:End
 ======DEGRE2 ======
"A="?A:"B="?B:"C="?C
B2-4AC→D
"DELTA=":D
If D>0 
Then "2 SOL"
(-B-√D)(2A)
(-B+√D)(2A)
IfEnd
If D=0 
Then "1 SOL"
(-B)(2A)
IfEnd
If D<0 
Then "0 SOL"
IfEnd

Comments