Generalised floating point addition: Difference between revisions
Generalised floating point addition (view source)
Revision as of 16:42, 24 December 2013
, 10 years ago→base 10 only: typos
m (→{{header|Tcl}}: More notes) |
Walterpachl (talk | contribs) m (→base 10 only: typos) |
||
Line 612:
do j=-7 to 21 /*traipse through the test cases.*/
reps=reps+1 /*increase number of
BCD.j=strip(copies(_123,reps)'^'mult,'L',0) /*construct zoned BCD.*/
if j//3==0 then BCD.J='+'BCD.j /*add a leading + sign every 3rd#*/
Line 626:
end /*j*/
say copies('═',maxW) /*display a fence for
times=81 /*the number of times to add it. */
| |||