Advertisement
Guest User

Untitled

a guest
Jun 26th, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Test this code for me, if you're not too lazy.
  2. Display "x^2 + Bx + C"
  3. Input("B = ", B)
  4. Input("C = ", F)
  5. If F < 0
  6. C = F - 2F
  7. If F > 0
  8. C = F
  9. D = 0
  10. X = 1
  11. Y = 1
  12. ClrHome
  13. While D = 0
  14. M = X * Y
  15. If M = C
  16. Then
  17. If F < 0
  18. Then
  19. If B = ( X - Y )
  20. Then
  21. Display "X + ", X, "X - ", Y
  22. D = 1
  23. End
  24. If B = ( Y - X )
  25. Then
  26. Display "X + ", Y, "X - ", X
  27. D = 1
  28. End
  29. End
  30. If F > 0
  31. Then
  32. If B = ( X + Y)
  33. Then
  34. Display "X + ", X, "X + ", Y
  35. D = 1
  36. End
  37. If B = ( 0 - X - Y )
  38. Display "X - ", X, "X - ", Y
  39. D = 1
  40. End
  41. Else
  42. Then
  43. While E = 0
  44. If Y < C / 2
  45. Then
  46. Y = Y + 1
  47. E = 1
  48. End
  49. If Y > C / 2
  50. Then
  51. If X >= C / 2
  52. Then
  53. Display "Doesn't Foil Cleanly"
  54. D = 1
  55. End
  56. Else
  57. Then
  58. X = X + 1
  59. Y = X
  60. End
  61. End
  62. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement