Anonymous user
Temperature conversion: Difference between revisions
m
→{{header|REXX}}: added/changed whitespace and comments, used a template for the output sections.
Drkameleon (talk | contribs) (added Arturo) |
m (→{{header|REXX}}: added/changed whitespace and comments, used a template for the output sections.) |
||
Line 3,335:
do until tList='' /*process the list of temperatures. */
parse var tList x ',' tList /*temps are separated by commas. */
x= translate(x, '((', "[{")
x= space(x); parse var x z '('
parse upper var z z ' TO ' ! . /*separate the TO option from number.*/
if !=='' then != 'ALL'; all= !=='ALL'
if z=='' then call serr "no arguments were specified." /*oops-ay. */
_= verify(z, '+-.0123456789')
n= z
if _\==0 then do
if _==1 then call serr 'illegal temperature:' z
n= left(z, _ - 1)
u= strip( substr(z, _
end
else u= 'k'
if \datatype(n, 'N') then call serr 'illegal number:' n
if \all then do /*is there is a TO ααα scale? */
call name ! /*process the TO abbreviation. */
!=
end /*!: now contains temperature full name*/
call name u /*allow alternate scale (miss)spellings*/
select /*convert ──► °Fahrenheit temperatures.*/
when sn=='CELSIUS' then F= n * 9/5 + 32
when sn=='DELISLE' then F= 212 -(n * 6/5)
when sn=='FAHRENHEIT' then F= n
when sn=='KELVIN' then F= n * 9/5 - 459.67
when sn=='NEWTON' then F= n * 60/11 + 32
when sn=='RANKINE' then F= n - 459.67
when sn=='REAUMUR' then F= n * 9/4 + 32
when sn=='ROMER' then F= (n-7.5) * 27/4 + 32
otherwise call serr 'illegal temperature scale: ' u
end /*select*/
Line 3,382:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
s: if arg(1)==1 then return arg(3); return word( arg(2) 's', 1)
serr: say; say '***error!***'; say; say arg(1); say; exit 13
/*──────────────────────────────────────────────────────────────────────────────────────*/
$: procedure;
_= format( arg(1), , showDig) / 1
p= pos(., _);
/* [↓] align integers with FP numbers.*/
if p==0 then _= _ || left('', 5+showDig+1) /*the number has no decimal point.
else _= _ || left('', 5+showDig-L+p) /* " " " a " "
return right(_, 50) /*return the re-formatted number (arg).*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
name: parse arg y /*abbreviations ──► shortname.*/
yU= translate(y, 'eE', "éÉ");
if left(yU, 7)=='DEGREES' then yU= substr(yU, 8)
if left(yU, 6)=='DEGREE' then yU= substr(yU, 7)
yU= strip(yU)
_= length(yU)
if right(yU,
select /*abbreviations ──► shortname.*/
when abbrev('CENTIGRADE' , yU) |,
Line 3,414 ⟶ 3,415:
abbrev('CELISU' , yU) |, /* 1% misspelled.*/
abbrev('CELSU' , yU) |, /* 1% misspelled.*/
abbrev('CELSIU' , yU) then sn= 'CELSIUS'
when abbrev('DELISLE' , yU,2) then sn= 'DELISLE'
when abbrev('FARENHEIT' , yU) |, /* 39% misspelled.*/
abbrev('FARENHEIGHT', yU) |, /* 15% misspelled.*/
Line 3,431 ⟶ 3,432:
abbrev('FARINHEIT' , yU) |, /* 1% misspelled.*/
abbrev('FARANHITE' , yU) |, /* 1% misspelled.*/
abbrev('FAHRENHEIT' , yU) then sn= 'FAHRENHEIT'
when abbrev('KALVIN' , yU) |, /* 27% misspelled.*/
abbrev('KERLIN' , yU) |, /* 18% misspelled.*/
abbrev('KEVEN' , yU) |, /* 9% misspelled.*/
abbrev('KELVIN' , yU) then sn= 'KELVIN'
when abbrev('NEUTON' , yU) |, /*100% misspelled.*/
abbrev('NEWTON' , yU) then sn= 'NEWTON'
when abbrev('RANKINE' , yU, 1) then sn= 'RANKINE'
when abbrev('REAUMUR' , yU, 2) then sn= 'REAUMUR'
when abbrev('ROEMER' , yU, 2) |,
abbrev('ROMER' , yU, 2) then sn= 'ROMER'
otherwise call serr 'illegal temperature scale:' y
end /*select*/
return</lang>
<pre>
─────────────────────────────────────────────────────────────────── 98.6F to C
Line 3,517 ⟶ 3,518:
<br>
▲'''output''' when using the input of: <tt> 0 Fahrenheit </tt>
<pre>
───────────────────────────────────────────────────────────────── 0 Fahrenheit
Line 3,580:
-11.53701838 Wedgwood
</pre>
<pre>
───────────────────────────────────────────────────────────────────── 0 kelvin
| |||