Anonymous user
Ethiopian multiplication: Difference between revisions
Replace PIC with PICTURE
(Added COBOL version) |
(Replace PIC with PICTURE) |
||
Line 605:
{{works with|OpenCOBOL|1.1}}
In COBOL, ''double'' is a reserved word, so the doubling functions is named ''twice'', instead.
<lang COBOL> *>* Ethiopian multiplication in COBOL
IDENTIFICATION DIVISION.
Line 611:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 l
01 r
01 ethiopian-multiply
01 product
PROCEDURE DIVISION.
CALL "ethiopian-multiply" USING
Line 630:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 evenp
88 even VALUE 1.
88 odd VALUE 0.
LINKAGE SECTION.
01 l
01 r
01 product
PROCEDURE DIVISION using l, r, product.
MOVE ZEROES TO product
Line 664:
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 n
01 m
PROCEDURE DIVISION USING n, m.
DIVIDE n BY 2 GIVING m END-DIVIDE
Line 676:
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 n
01 m
PROCEDURE DIVISION USING n, m.
MULTIPLY n by 2 GIVING m END-MULTIPLY
Line 687:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 q
LINKAGE SECTION.
01 n
01 m
88 even VALUE 1.
88 odd VALUE 0.
|