Temperature conversion: Difference between revisions
Content added Content deleted
m (whitespace/tidy up) |
(→Tcl: Added implementation) |
||
| Line 473: | Line 473: | ||
</pre> |
</pre> |
||
[Actually, water freezes at 0.000089º C, and boils at 99.974º C.] |
[Actually, water freezes at 0.000089º C, and boils at 99.974º C.] |
||
=={{header|Tcl}}== |
|||
<lang tcl>proc temps {k} { |
|||
set c [expr {$k - 273.15}] |
|||
set r [expr {$k / 5.0 * 9.0}] |
|||
set f [expr {$r - 459.67}] |
|||
list $k $c $f $r |
|||
}</lang> |
|||
Demonstrating: |
|||
<lang tcl>puts -nonewline "Enter a temperature in K: " |
|||
flush stdout |
|||
lassign [temps [gets stdin]] k c f r |
|||
puts [format "K: %.2f" $k] |
|||
puts [format "C: %.2f" $c] |
|||
puts [format "F: %.2f" $f] |
|||
puts [format "R: %.2f" $r]</lang> |
|||
{{out}} |
|||
<pre> |
|||
Enter a temperature in K: 21 |
|||
K: 21.00 |
|||
C: -252.15 |
|||
F: -421.87 |
|||
R: 37.80 |
|||
</pre> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |
||