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