User-Friendly Quadratic Program

Kydapoot 29 Mar 2016 14:59

```
Lbl A
ClrHome
Menu(" QUADRATICS ","SOLVER",1,"SQUARE ROOT",4,"EQUATIONS",3,"QUIT",10
Lbl 1
ClrHome
Disp "AX²+BX+C=0
Prompt A,B,C
"AX^2+BX+C"→Y₁
B→Q
2A→R
Q/R→S
AS²+BS+C→V
ClrHome
Disp "VERTEX:",S,V
Pause
(B+√(B²-4AC))(2A→F
(B-√(B²-4AC))(2A→E
Disp "ROOTS:",F,E
Pause
Goto A
Lbl 3
ClrHome
Disp "STANDARD FORM:","AX²+BX+C","VERTEX FORM:","A(X-H)²+K","FACTORED/BINOML:","(M+N)(O+P)","SYMMETRY EQTION:
Output(8,1,"B2A
Pause
Goto A
Lbl 4
ClrHome
Input "√( ):",W
√(W→W
Disp W
W*1→X
Disp X
Pause
Goto A
Lbl 10
ClrHome
DelVar ADelVar BDelVar CDelVar XDelVar QDelVar SDelVar RDelVar VDelVar WStop
```