Anonymous user
Display a linear combination: Difference between revisions
m
→{{header|REXX}}: change a comment.
m (→{{header|REXX}}: elided redundant use of ABS BIF.) |
m (→{{header|REXX}}: change a comment.) |
||
Line 206:
if #=0 then iterate; a=abs(x/1) /*if the value is zero, then ignore it.*/
s='+ '; if #<0 then s='- ' /*define the sign: plus(+) or minus(-)*/
n=n+1; if n==1 then s=strip(s) /*if the 1st element used,
if a\==1 then s=s || a'*' /*if multiplier is unity, then ignore #*/
$=$ s'e('k")" /*construct a liner combination element*/
|