Data commit

Task/Temperature-conversion/QB64/temperature-conversion.qb64

@@ -0,0 +1,17 @@
+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