Originally Posted by

**confused20** Does anyone know how to program the TI-83 calculator to solve for quadratic equations? Thank you in advance for any input.

I've modified my program so you can calculate imaginary or complex solutions too.

The quadratic equation must be in the form

The is the first letter in the catalog if you come to the i-section.

Executing the program you only have to enter the coefficients A, B and C.

Code:

PROGRAM:QUADSOLV
:ClrHome
:Input "A:",A
:Input "B:",B
:Input "C:",C
: Bē-4*A*C → D
:If D<0
:Then
:Disp "X=",-B/(2*A)+i*√(abs(D))/(2*A)
:Disp "OR:"
::Disp "X=",-B/(2*A)-i*√(abs(D))/(2*A)
:Else
:If D=0
:Then
:Disp "X=",-B/(2*A)
:Else
:Disp "X=",-B/(2*A)-√(D)/(2*A)
:Disp "OR"
:Disp "X=",-B/(2*A)+√(D)/(2*A)
:End
:End