Temperature conversion: Difference between revisions

m
→‎{{header|REXX}}: changed the number of digits (decimal fraction) displayed. -- ~~~~
m (→‎{{header|REXX}}: added support for better error reporting. -- ~~~~)
m (→‎{{header|REXX}}: changed the number of digits (decimal fraction) displayed. -- ~~~~)
Line 300:
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────TFORM subroutine────────────────────*/
Tform: procedure; showDig=38; _=format(arg(1),,showDig)/1; p=pos('.',_)
if p==0 then _=_ || left('',showDig+1)
else _=_ || left('',showDig-length(_)+p); return right(_,20)
Line 307:
'''output''' when using the input of: <tt> -40C, 0 c (water freezes), 37C (body temp), 100 C (water boils), 21 degrees Kelvin, 0K (outer space?) </tt>
<pre style="overflow:scroll">
───────────────────────────────────────────────── -40C40c
-40 -40 Celcius
210 210 Delisle
-40 -40 Fahrenheit
233.15 233.15 Kelvin
-13.2 -13.2 Newton
419.67 419.67 Rankine
-32 -32 Reaumur
-13.5 -13.5 Romer
─────────────────────────────────────────────────── 0c
─────────────────────────────────── 0c (water freezes)
0 0 Celcius
150 150 Delisle
32 32 Fahrenheit
273.15 273.15 Kelvin
0 0 Newton
491.67 491.67 Rankine
0 0 Reaumur
7.5 7.5 Romer
────────────────────────────────────────────────── 37c
────────────────────────────────────── 37C (body temp)
37 37 Celcius
94.5 94.5 Delisle
98.6 98.6 Fahrenheit
310.15 310.15 Kelvin
12.21 12.21 Newton
558.27 558.27 Rankine
29.6 29.6 Reaumur
26.925 26.925 Romer
───────────────────────────────────────────────── 100c
─────────────────────────────────── 100c (water boils)
100 100 Celcius
0 0 Delisle
212 212 Fahrenheit
373.15 373.15 Kelvin
33 33 Newton
671.67 671.67 Rankine
80 80 Reaumur
60 60 Romer
────────────────────────────────────────────────── 21k
──────────────────────────────────── 21 degrees Kelvin
-252.15 -252.15 Celcius
528.225 528.225 Delisle
-421.87 -421.87 Fahrenheit
21 21 Kelvin
-83.2095 -83.21 Newton
37.8 37.8 Rankine
-201.72 -201.72 Reaumur
-124.87875 -124.879 Romer
─────────────────────────────────────────────────── 0k
──────────────────────────────────── 0K (outer space?)
-273.15 -273.15 Celcius
559.725 559.725 Delisle
-459.67 -459.67 Fahrenheit
0 0 Kelvin
-90.1395 -90.14 Newton
0 0 Rankine
-218.52 -218.52 Reaumur
-135.90375 -135.904 Romer
</pre>
[Actually, water freezes at 0.000089 º C, &nbsp; and boils at 99.974 º C.]
<br><br>