September 2017 Update

Task/Temperature-conversion/ALGOL-M/temperature-conversion.algol-m

@@ -0,0 +1,12 @@
+BEGIN
+    DECIMAL K, C, F, R;
+    WRITE( "Temperature in Kelvin:" );
+    READ( K );
+    C := K - 273.15;
+    F := K * 1.8 - 459.67;
+    R := K * 1.8;
+    WRITE( K, " Kelvin is equivalent to" );
+    WRITE( C, " degrees Celsius" );
+    WRITE( F, " degrees Fahrenheit" );
+    WRITE( R, " degrees Rankine" );
+END

Task/Temperature-conversion/BASIC/temperature-conversion-2.basic

@@ -0,0 +1,6 @@
+10 PRINT "ENTER A TEMPERATURE IN KELVINS"
+20 INPUT K
+30 PRINT K;" KELVINS ="
+40 PRINT K-273.15;" DEGREES CELSIUS"
+50 PRINT K*1.8-459.67;" DEGREES FAHRENHEIT"
+60 PRINT K*1.8;" DEGREES RANKINE"

Task/Temperature-conversion/Gambas/temperature-conversion.gambas

@@ -0,0 +1,11 @@
+Public Sub Form_Open()
+Dim fKelvin As Float
+
+fKelvin = InputBox("Enter a Kelvin value", "Kelvin converter")
+
+Print "Kelvin =\t" & Format(Str(fKelvin), "#.00")
+Print "Celsius =\t" & Format(Str(fKelvin - 273.15), "#.00")
+Print "Fahrenheit =\t" & Format(Str(fKelvin * 1.8 - 459.67), "#.00")
+Print "Rankine =\t" & Format(Str(fKelvin * 1.8), "#.00")
+
+End

Task/Temperature-conversion/Groovy/temperature-conversion.groovy

@@ -0,0 +1,12 @@
+class Convert{
+static void main(String[] args){
+def c=21.0;
+println("K "+c)
+println("C "+k_to_c(c));
+println("F "+k_to_f(k_to_c(c)));
+println("R "+k_to_r(c));
+}
+static def k_to_c(def k=21.0){return k-273.15;}
+static def k_to_f(def k=21.0){return ((k*9)/5)+32;}
+static def k_to_r(def k=21.0){return k*1.8;}
+}

Task/Temperature-conversion/Kotlin/temperature-conversion.kotlin

@@ -0,0 +1,21 @@
+// version 1.1.2
+
+class Kelvin(val degrees: Double) {
+    fun toCelsius() = degrees - 273.15
+
+    fun toFahreneit() = (degrees - 273.15) * 1.8 + 32.0
+
+    fun toRankine() = (degrees - 273.15) * 1.8 + 32.0 + 459.67
+}
+
+fun main(args: Array<String>) {
+    print("Enter the temperature in degrees Kelvin : ")
+    val degrees = readLine()!!.toDouble()
+    val k = Kelvin(degrees)
+    val f = "% 1.2f"
+    println()
+    println("K  ${f.format(k.degrees)}\n")
+    println("C  ${f.format(k.toCelsius())}\n")
+    println("F  ${f.format(k.toFahreneit())}\n")
+    println("R  ${f.format(k.toRankine())}")
+}

Task/Temperature-conversion/Scheme/temperature-conversion.ss

@@ -0,0 +1,19 @@
+(import (scheme base)
+        (scheme read)
+        (scheme write))
+
+(define (kelvin->celsius k)
+  (- k 273.15))
+
+(define (kelvin->fahrenheit k)
+  (- (* k 1.8) 459.67))
+
+(define (kelvin->rankine k)
+  (* k 1.8))
+
+;; Run the program
+(let ((k (begin (display "Kelvin    : ") (flush-output-port) (read))))
+  (when (number? k)
+    (display "Celsius   : ") (display (kelvin->celsius k)) (newline)
+    (display "Fahrenheit: ") (display (kelvin->fahrenheit k)) (newline)
+    (display "Rankine   : ") (display (kelvin->rankine k)) (newline)))

Task/Temperature-conversion/Swift/temperature-conversion.swift

@@ -0,0 +1,23 @@
+func KtoC(kelvin : Double)->Double{
+
+    return kelvin-273.15
+}
+
+func KtoF(kelvin : Double)->Double{
+
+    return ((kelvin-273.15)*1.8)+32
+}
+
+func KtoR(kelvin : Double)->Double{
+
+    return ((kelvin-273.15)*1.8)+491.67
+}
+
+var k// input
+print("\(k) Kelvin")
+var c=KtoC(kelvin : k)
+print("\(c) Celsius")
+var f=KtoF(kelvin : k)
+print("\(f) Fahrenheit")
+var r=KtoR(kelvin : k)
+print("\(r) Rankine")

Task/Temperature-conversion/Zkl/temperature-conversion.zkl

@@ -0,0 +1,5 @@
+K:=ask(0,"Kelvin: ").toFloat();
+println("K %.2f".fmt(K));
+println("F %.2f".fmt(K*1.8 - 459.67));
+println("C %.2f".fmt(K - 273.15));
+println("R %.2f".fmt(K*1.8));