kirby2
Member!
I made my own "program" today with my graphing calculator (T-83 plus ). I made it to do the math we are going right now (Quadratic formula).
Here it is........
prompt A,B,C
ClrHome
b^2-4ac--->D
Disp "ans:"
Output(3,5,D)
If D <0
disp "no real ans:"
If D=0
disp "equal roots:"
If D>0
disp "2 different roots:"
pause
ctrlhome
(-(B)+(square root(D)))/(2A)--->K
Disp "Quad ans B+ square root D:"
Output(3,5,k)
pause
ctrlhome
(-(B)-(square root(D)))/(2A)--->L
Disp "Quad ans B- square root D:"
Output(3,5,L)
Yay I feel smart !
:rollie
Here it is........
prompt A,B,C
ClrHome
b^2-4ac--->D
Disp "ans:"
Output(3,5,D)
If D <0
disp "no real ans:"
If D=0
disp "equal roots:"
If D>0
disp "2 different roots:"
pause
ctrlhome
(-(B)+(square root(D)))/(2A)--->K
Disp "Quad ans B+ square root D:"
Output(3,5,k)
pause
ctrlhome
(-(B)-(square root(D)))/(2A)--->L
Disp "Quad ans B- square root D:"
Output(3,5,L)
Yay I feel smart !
:rollie