Automated Solver for Density and Molar Mass [Gas Laws] [Compatible with TI-84 Plus CE]

HS002.8xp

Disp "Haddock Solver - g/L +"
Disp "g/mole"
Disp ""
Disp ""
Disp "Please Select a Calcuation"
Disp "=========================="
Disp "1) Density"
Disp "2) Molar Mass"
Disp "3) Information"
Prompt C
Disp "=========================="
If C=1:Then
Disp "Please enter Atomic Mass:"
Disp "(Ex. N2 = 28g)"
Prompt M
Disp "Please enter Temp (*C):"
Prompt B
B+273→T
Disp "Is the Pressure in atm (1)"
Disp "Or mmHg (2)?"
Prompt J
If J=1:Then
Disp "Please enter Pressure:"
Prompt P
End
If J=2:Then
Disp "Please enter Pressure:"
Prompt L
L/760→P
End
(1*0.0821*T)/P→V
M/V→D
Disp "=========================="
Disp "The Density is:",D
End
If C=2:Then
Disp "Is the Density Given?"
Disp "Pick (1) Yes or (2) No"
Prompt K
If K=1:Then
Disp "Please enter Density:"
Prompt M
1→V
End
If K=2:Then
Disp "Please enter Atomic Mass:"
Prompt M
Disp "Please enter Volume (L):"
Prompt V
End
Disp "Please enter Temp (*C):"
Prompt B
B+273→T
Disp "Is the Pressure in atm (1)"
Disp "Or mmHg (2)?"
Prompt J
If J=1:Then
Disp "Please enter Pressure:"
Prompt P
End
If J=2:Then
Disp "Please enter Pressure:"
Prompt L
L/760→P
End
(P*V)/(0.0821*T)→N
M/N→G
Disp "=========================="
Disp "The Molar Mass is:",G
End
If C=3:Then
Disp "Haddock Solver - g/L g/mol"
Disp "Created by AwlsomeAlex"
Disp "Licensed GNU GPLv3"
Disp "Version 1.0 - 20180327"
Disp ""
Disp "Dedicated to the classfool"
Disp "Nicholas Guidara <3"