A,B et C peuvent être négatifs pensez à mettre le (-) devant la valeur:
Normal
Float
Radian
Func
Connected
a+bi
Prompt A,B,C
B²-(4AC)->D
Disp "DELTA",D
√(√(D²))->Ø
Disp "√(D)",Ø
If D=0
Goto 0
If D>0
Goto 1
If D<0
Goto 2
End
Lbl 0
Disp "D=0"
Pause
Disp"-B/2A"
-B/2A->X
Disp "X",X>frac
Stop
Lbl 1
Disp "D>0"
(-B-√(D))/(2a)->X
(-B+√(D))/(2a)->Y
Pause
Disp "(-B-√(D))/(2a)",X>Frac
Disp "(-B+√(D))/(2a)",Y>Frac
Stop
Lbl 2
Disp "D<0"
(-B-i√(-D))/(2a)->X
(-B+i√(-D))/(2a)->Y
Pause
Disp "(-B-i√(-D))"
Disp "/(2a)",X>Frac
Pause
Disp "(-B+i√(-D))"
Disp/(2a)",Y>Frac
Stop
