17 lines
461 B
Text
17 lines
461 B
Text
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
|