Рет қаралды 44,015
Here is the code:
:Lbl 52
:prgmCLEAR
:Input "INPUT A: ",A
:Input "INPUT B: ",B
:Input "INPUT C: ",C
:prgmCLEAR
:If (B^2-(4*A*C))(less than)0
:Then
:Disp "NO SOLUTION"
:Pause
:Goto 3
:Else
:((-B+√(B^2-(4*A*C)))/(2*A))(sto)D
:((-B-√(B^2-(4*A*C)))/(2*A))(sto)E
: Text(1,1,"X= ",D)
:Text(8,1,"X= ",E)
:If B(greater than)0
:Then
:B*-1(sto)B
:Goto 45
:Else
:Lbl 45
:Text(15,1,B,"+/- √(",B^2-4*A*C,")")
:Line(-10,2.9,-2.3,2.9)
:Text(24,18,2A)
:Pause
:Lbl 3
:Menu("SOLVE ANOTHER?","YES",52,"NO",2)
:Lbl 2
:prgmUNCLEAR
:Stop
----------------------------
Clear/unclear programs
• Clear/Unclear Programs
======================================
If you have questions please leave a comment I will respond!!!!!!
If this video helped you out click "LIKE", it helps me out :D
If you misuse this program i am not responsible, use it only in an appropriate way.
Thank you for watching! Subscribe and help a guy out! :D
I made a google+ for this, kinda useless but oh well follow me:
plus.google.com/1067420044850...
_________________________________________________________________________