Data update

Task/Temperature-conversion/Asymptote/temperature-conversion.asymptote

@@ -0,0 +1,10 @@
+void convKelvin(real K) {
+    write("K = " + string(K));
+    write("C = " + string(K - 273.15));
+    write("F = " + string((K - 273.15) * 1.8 + 32.0));
+    write("R = " + string(K * 1.8));
+}
+
+convKelvin(0.0);
+write("");
+convKelvin(21.0);

Task/Temperature-conversion/Dart/temperature-conversion.dart

@@ -0,0 +1,24 @@
+double kelvinToCelsius(double k) {
+  return k - 273.15;
+}
+
+double kelvinToFahrenheit(double k) {
+  return k * 1.8 - 459.67;
+}
+
+double kelvinToRankine(double k) {
+  return k * 1.8;
+}
+
+void convertKelvin(double kelvin) {
+  print('K = ${kelvin.toStringAsFixed(2)}');
+  print('C = ${kelvinToCelsius(kelvin).toStringAsFixed(2)}');
+  print('F = ${kelvinToFahrenheit(kelvin).toStringAsFixed(2)}');
+  print('R = ${kelvinToRankine(kelvin).toStringAsFixed(2)}');
+  print('');
+}
+
+void main() {
+  convertKelvin(0.0);
+  convertKelvin(21.0);
+}

Task/Temperature-conversion/Prolog/temperature-conversion.pro

@@ -0,0 +1,14 @@
+convKelvin(Temp) :-
+    Kelvin is Temp,
+    Celsius is Temp - 273.15,
+    Fahrenheit is (Temp - 273.15) * 1.8 + 32.0,
+    Rankine is (Temp - 273.15) * 1.8 + 32.0 + 459.67,
+    format('~f degrees Kelvin~n', [Kelvin]),
+    format('~f degrees Celsius~n', [Celsius]),
+    format('~f degrees Fahrenheit~n', [Fahrenheit]),
+    format('~f degrees Rankine~n', [Rankine]).
+
+test :-
+    convKelvin(0.0),
+    nl,
+    convKelvin(21.0).

Task/Temperature-conversion/Tiny-Craft-Basic/temperature-conversion.basic

@@ -1,9 +0,0 @@
-10 cls
-20 input "Temperature in Kelvin: ", k
-30 let c = k + 273
-40 let r = ( 9 * k ) / 5
-50 let f = r + 460
-60 print c, " Celsius"
-70 print f, " Fahrenheit"
-80 print r, " Rankine"
-90 shell "pause"

Task/Temperature-conversion/XBasic/temperature-conversion.basic

@@ -0,0 +1,18 @@
+PROGRAM "Temperature conversion"
+VERSION "0.001"
+
+DECLARE FUNCTION Entry()
+
+FUNCTION Entry()
+  DO
+    D$ = INLINE$("Kelvin degrees (>=0): ")
+    K = SBYTE(D$)
+  LOOP UNTIL K >= 0
+
+  PRINT "K = " + STR$(K)
+  PRINT "C = " + STR$(K - 273.15)
+  PRINT "F = " + STR$(K * 1.8 - 459.67)
+  PRINT "R = " + STR$(K * 1.8)
+
+END FUNCTION
+END PROGRAM