Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Lbl E
- ClrHome
- Disp "FORM: AX^2+BX+C=0"
- Disp "IF A,B,C IS BLANK, ENTER 1"
- Prompt A,B,C
- B^2-4AC->D
- Disp (-B+sqrt(D)/(2A))
- Disp (-B-sqrt(D)/(2A))
- DelVar A
- DelVar B
- DelVar C
- DelVar D
- Disp "AGAIN?"
- INPUT "Y/N",A
- IF A="Y"
- THEN
- DelVar A
- GOTO E
- ELSE
- DelVar A
- Pause
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement