D. JacKaL's Quadratic Equation
This program uses the Quadratic Equation to solve for X. You will be prompted to enter the 3
coefficients of the equation (A, B, and C), and the calc will then use the Quadratic Equation
to solve for both values of X. This Quadratic Equation program solves for both real and
imaginary answers.
/START80/
/NAME=QUAD
:LBL 1
:0->I
:CLRHOME
:INPUT "A=",A
:INPUT "B=",B
:INPUT "C=",C
:B\^2\-4AC->D (this is the squared sign)
:IF D<0
:THEN
:\(-)\D->D (this is the negative sign)
:1->I
:END
:\(-)\B/2->Z
:\sqrt\D/2->\@\ (this is the "theta" character)
:CLRHOME
:DISP "X="
:IF I=0
:DISP Z+\@\," OR",Z-\@\
:IF I=1
:DISP Z," +/-",\@\," I"
:PAUSE
:LBL Q
:CLRHOME
:DISP "ANOTHER?","1:YES","2:NO"
:INPUT Q
:IF Q=1
:GOTO 1
:IF Q-2
:GOTO Q
:CLRHOME
/STOP80/