GIVING 标识符n [，标识符p]。。。3。MULTIPLY语句：格式1：MULTIPLY 标识符1 BY 标识符2 [，标识符3]。。。常量1，格式2：MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 [，标识符4]。。。常量1 ，常量2 4。DIVIDE语句：格式1：DIVIDE 标识符1 INTO 标识符2 [，标识符3]。。。...
MULTIPLY WS-NUM1 BY WS-NUM2 WS-NUM3. MULTIPLY WS-NUMA BY WS-NUMB GIVING WS-NUMC. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC STOP...
3。MULTIPLY语句:格式1:MULTIPLY 30、0;标识符1 BY 标识符2 ,标识符3。常量1,格式2:MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 ,标识符4。常量1 , 常量24。DIVIDE语句:格式1:DIVIDE、160; 标识符1 INTO 标识符2 ,标识符3。常量1格式2:DIVIDE 标识符1 32...
MULTIPLY A BY B C MULTIPLY A BY B GIVING E 复制 在syntax-1 中,A 和 B 相乘,结果存储在 B 中(B=A*B)。A和 C 相乘,结果存储在 C 中 (C = A * C)。 在语法 2 中,A 和 B 相乘,结果存储在 E (E=A*B) 中。 Example IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION...
格式1:MULTIPLY标识符1 BY标识符2 [,标识符3]。。。 常量1, 格式2:MULTIPLY标识符1 BY标识符2 GIVING标识符3 [,标识符4]。。。 常量1,常量2 4。DIVIDE语句: 格式1:DIVIDE标识符1 INTO标识符2 [,标识符3]。。。 常量1 格式2:DIVIDE标识符1 INTO标识符2 GIVING标识符3 [,标识符4]。。。 常量1 ...
GIVING后不能跟常量。 2.3.3 格式1:MULTIPLY标识符1/常量1BY标识符2,标识符3… 格式2:MULTIPLY标识符1/常量1BY标识符2/常量2GIVING标识符3,标识符4… 说明: MULTIPLYABY B表示A被B乘,结果放在B中,B=A×B MULTIPLY0.5BY B即:B=0.5×B MULTIPLYABYBGIVINGC即:C=A×B MULTIPLYABYBGININGC,D即:C=A×...
3。MULTIPLY语句: 格式1:MULTIPLY 标识符1 BY 标识符2 [,标识符3]。。。 常量1, 格式2:MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 [,标识符4]。。。 常量1 , 常量2 4。DIVIDE语句: 格式1:DIVIDE 标识符1 INTO 标识符2 [,标识符3]。。。
举例:MULTIPLY A BY B GIVING C ON SIZE ERROR DISPLAY‘SIZE ERROR‘ STOP RUN. 3.对应项间的运算(带CORRESPONDING子句的算术运算语句) 格式:ADD CORRESPONDING/CORR 标识符1 TO 标识符2 [ROUNDED] [;ON SIZE ERROR 强制语句] SUBTRACT CORRESPONDING/CORR 标识符1 TO 标识符2 [ROUNDED] [;ON SIZE ERROR ...
COBOL 基本语句--好东西