API tools faq
paste
Advertisement
UrNotSorry

Mole Conversions

UrNotSorry
Dec 5th, 2011
27
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.73 KB | None | 0 0
raw download clone embed print report
  1. :"Molar Conversions"," by Calvin C.
  2. :ClrHome
  3. :Fix 2
  4. :DelVar ADelVar BDelVar CDelVar DDelVar EMenu("Convert From?:","Moles",A,"Grams",B,"Particles",C,"Volume",D,"Quit",E
  5. :Lbl A
  6. :Menu("Moles To?:","Grams",1,"Particles",2,"Volume",3,"Quit",E
  7. :Lbl 1
  8. :Input "Moles?:",A
  9. :Input "GFM?:",B
  10. :AB→C
  11. :Disp " 
  12. :Disp C," Grams
  13. :Pause
  14. :prgmMBC
  15. :Lbl 2
  16. :Input "Moles?:",A
  17. :A6.02{E}23→C
  18. :Disp " 
  19. :Disp C," Particles
  20. :Pause
  21. :prgmMBC
  22. :Lbl 3
  23. :Input "Moles?:",A
  24. :A22.4→C
  25. :Disp " 
  26. :Disp C," Liters
  27. :Pause
  28. :prgmMBC
  29. :Lbl B
  30. :Menu("Grams To?:","Moles",4,"Particles",5,"Volume",6,"Quit",E
  31. :Lbl 4
  32. :Input "Grams?:",A
  33. :Input "GFM?:",B
  34. :A/B→C
  35. :Disp " 
  36. :Disp C," Moles
  37. :Pause
  38. :prgmMBC
  39. :Lbl 5
  40. :Input "Grams?:",A
  41. :Input "GFM?:",B
  42. :(A/B)*6.02{E}23→C
  43. :Disp " 
  44. :Disp C," Particles
  45. :Pause
  46. :prgmMBC
  47. :Lbl 6
  48. :Input "Grams?:",A
  49. :Input "GFM?:",B
  50. :(A/B)*22.4→C
  51. :Disp " 
  52. :Disp C," Liters
  53. :Pause
  54. :prgmMBC
  55. :Lbl C
  56. :Menu("Particles To?:","Moles",7,"Grams",8,"Volume",9,"Quit",E
  57. :Lbl 7
  58. :Input "Particles?:",A
  59. :A/6.02{E}23→C
  60. :Disp " 
  61. :Disp C," Moles
  62. :Pause
  63. :prgmMBC
  64. :Lbl 8
  65. :Input "Particles?:",A
  66. :Input "GFM?:",B
  67. :(A/6.02{E}23)*B→C
  68. :Disp " 
  69. :Disp C," Grams
  70. :Pause
  71. :prgmMBC
  72. :Lbl 9
  73. :Input "Particles?:",A
  74. :(A/6.02{E}23)*22.4→C
  75. :Disp " 
  76. :Disp C," Liters
  77. :Pause
  78. :prgmMBC
  79. :Lbl D
  80. :Menu("Volume To?:","Moles",10,"Grams",11,"Particles",12,"Quit",E
  81. :Lbl 10
  82. :Input "Volume?:",A
  83. :A/22.4→C
  84. :Disp " 
  85. :Disp C," Moles
  86. :Pause
  87. :prgmMBC
  88. :Lbl 11
  89. :Input "Volume?:",A
  90. :Input "GFM?:",B
  91. :(A/22.4)*B→C
  92. :Disp " 
  93. :Disp C," Grams
  94. :Pause
  95. :prgmMBC
  96. :Lbl 12
  97. :Input "Volume?:",A
  98. :(A/22.4)*6.02{E}23→C
  99. :Disp " 
  100. :Disp C," Particles
  101. :Pause
  102. :prgmMBC
  103. :Lbl E
  104. :ClrHome
  105. :Output(5,13,"    
  106. :
  107.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!