Advertisement
Guest User

Untitled

a guest
Jul 29th, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.27 KB | None | 0 0
  1. Lbl E
  2. ClrHome
  3. Disp "FORM: AX^2+BX+C=0"
  4. Disp "IF A,B,C IS BLANK, ENTER 1"
  5. Prompt A,B,C
  6. B^2-4AC->D
  7. Disp (-B+sqrt(D)/(2A))
  8. Disp (-B-sqrt(D)/(2A))
  9. DelVar A
  10. DelVar B
  11. DelVar C
  12. DelVar D
  13. Disp "AGAIN?"
  14. INPUT "Y/N",A
  15. IF A="Y"
  16. THEN
  17. DelVar A
  18. GOTO E
  19. ELSE
  20. DelVar A
  21. Pause
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement