Temperature conversion: Difference between revisions
Added Prolog
(Added Dart) |
(Added Prolog) |
||
| (One intermediate revision by the same user not shown) | |||
Line 664:
<pre>[celcius:-173.15 fahrenheit:-279.67 rankine:180.0]</pre>
=={{header|Asymptote}}==
<syntaxhighlight lang="Asymptote">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);</syntaxhighlight>
=={{header|AutoHotkey}}==
Line 4,152 ⟶ 4,164:
100 -173.15 -279.67 180
</pre>
=={{header|Prolog}}==
{{works with|GNU Prolog}}
{{works with|SWI Prolog}}
<syntaxhighlight lang="prolog">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).</syntaxhighlight>
=={{header|Pure Data}}==
| |||