Anonymous user
Temperature conversion: Difference between revisions
no edit summary
No edit summary |
|||
Line 3,629:
222.2 Kelvin = -50.95 Celsius = -59.71 Fahrenheit = 399.96 Rankine degrees.
<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}}==
| |||