Anonymous user
Arithmetic/Integer: Difference between revisions
m
→{{header|REXX}}: added/changed comments and whitespace, changed indentations.
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations.) |
|||
Line 2,827:
=={{header|REXX}}==
All operators automatically produce integers (up to 20 decimal digits in the program below),
<br>or numbers in exponential format when necessary.
<lang rexx>/*REXX
parse arg x y . /*maybe the integers are on the C.L. */
do while \datatype(x,'W') | \datatype(y,'W')
say "─────Enter two integer values (separated by blanks):"
parse pull x y . /*accept two
end /*while
/* [↓] perform this DO loop twice. */
do j=1 for 2 /*show A oper B, then B oper A.*/
call show 'addition' , "+", x+y
call show 'subtraction' , "-", x-y
Line 2,846 ⟶ 2,847:
call show 'power' , "**", x**y
parse value x y with y x /*swap the two values and perform again*/
if j==1 then say copies('═', 79) /*display a fence after the 1st round. */
end /*j*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
show: parse arg c,o,#,?; say right(c,25)' ' x center(o,4) y
'''output''' when using the input of: <tt> 17 -4 </tt>
<pre>
| |||