0 Members and 1 Guest are viewing this topic.
:ClrHome:Prompt A,B,C:(BB-(4AC))->X :If X<0 :Then:Disp "NO REAL ANSWER" :Else:(-B+sqrt(X))/(2A)->Y :(-B-sqrt(X))/(2A)->X :Output(6,2,"RESULTS::Output(7,2,X:Output(8,2,Y
(BB-(4AC))->X
ClrHomePrompt A,B,CB^2-4AC->XIf Ans<0:ThenDisp "NO REAL ANSWERElseOutput(6,2,"RESULTS:Output(7,2,-B+sqrt(X)/(2A)Output(8,2,-B-sqrt(X)/(2A)End
Ok, sorry if this isn't the problem, but we can't over look this.You are using the STO button to get the arrow right? Not minus greater than.Edit: Ninja'd
so... any other ideas?
:ClrHome:Prompt A,B,C:B^2-4AC→X:If Ans<0:Then:Disp "NO REAL ANSWER:Else:Output(6,2,"RESULTS::Output(7,2,-B+sqrt(X)/(2A):Output(8,2,{-}B-sqrt(X)/(2A):End
:ClrHome:a+bi (Found in the [MODE] menu, allows imaginary numbers):2->dim(L₁:Disp "AX²+BX+C=0:Prompt A,B,C:(-B+√(B²-4AC))/(2A->L₁(1:(-B-√(B²-4AC))/(2A->L₁(2:Pause L₁