Temperature conversion: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 3,629: | Line 3,629: | ||
222.2 Kelvin = -50.95 Celsius = -59.71 Fahrenheit = 399.96 Rankine degrees. |
222.2 Kelvin = -50.95 Celsius = -59.71 Fahrenheit = 399.96 Rankine degrees. |
||
<value> <K/R/F/C> ? </lang> |
<value> <K/R/F/C> ? </lang> |
||
=={{header|QB64}}== |
|||
<lang QB64> |
|||
Dim As Single Celsius, Kelvin, Fahrenheit, Rankine |
|||
Kelvin = -300 |
|||
While Kelvin = -300 |
|||
Input "Please type Kelvin temperature...or -300 to quit ", Kelvin |
|||
If Kelvin = -300 Then |
|||
End |
|||
Else |
|||
Celsius = Kelvin - 273.15 |
|||
Fahrenheit = ((9 / 5) * Celsius) + 32 |
|||
Rankine = Fahrenheit + 459.67 |
|||
End If |
|||
Print " Celsius", "Fahrenheit", "Kelvin", "Rankine " |
|||
Print Celsius, Fahrenheit, Kelvin, Rankine |
|||
Kelvin = -300 |
|||
Wend |
|||
</lang> |
|||
=={{header|Quackery}}== |
=={{header|Quackery}}== |