cobol算术运算

算术运算

算术运算就是常见的四则运算及平方等运算。

四舍五入ROUNDED

使用ROUNDED对运算的第一位小数进行四舍五入运算

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 99V9.
01 NUM@ PIC 99V9.
01 REAL-RESULT PIC 99.9.
01 RESULT PIC 99.
PROCEDURE DIVISION.
MOVE 12.3 TO NUM1.
MOVE 45.6 TO NUM2.
ADD NUM1 TO NUM2
	GIVING REAL-RESULT.
ADD NUM1 TO NUM2
	GIVING RESULT ROUNDED.
	

最后输出 REAL-RESULT 为57.9，RESULT是58.ROUNDED对结果作了四舍五入操作。

运算结果溢出报错 ON SIZE ERROR

cobol中数据定义的时候定义了对应的长度，如果长度溢出就会报错

ADD NUM1 TO NUM2
	GINING RESULT
	ON SIZE ERROR
	DISPLAY 'OVER FLOW!'

加法 ADD

ADD NUM1  NUM2 TO NUM3.
END ADD.

使用ADD进行相加，使用END ADD结束操作，还有一种事GIVING用法，可以省略END ADD.

ADD NUM1  NUM2 TO NUM3.
GIVING TOTAL.

减法 SUBTRACT

SUBTRACT NUM1 NUM2 FROM NUM3.
END SUBTTACT.

从NUM3中减去NUM1和NUM2，并覆盖NUM3的值，同ADD一样，也可以使用GIVING赋予另一个变量。

SUBTRACT NUM1 NUM2 FROM NUM3.
	GIVING RESULT.

乘法 MULTIPLY

MULTIPLY和 * 都能实现乘法运算。

MULTIPLY NUM1 BY NUM2
	ON SIZE ERROR
	DISPLAY 'OVER FLOW!'
END-MULTIPY.

NUM1和NUM2相乘结果赋予NUM2。同样也可以使用GIVING。

MULTIPLY NUM1 BY NUM2
	GIVING RESULT.

除法 DIVIDE

DIVIDE 和 / 都能实现乘法运算。

DIVISION NUM1 INTO NUM2.
END-DIVISION.

DIVISION NUM1 BY NUM2 GIVING QUOT
	REMAINDER REMAIND.

REMAINDER是将余数设置到REMAIND中。

其他运算 COMPUTE

乘方

使用 **

COMPUTE RESUIT = NUM1 ** NUM2.
END-COMPUTE.

复合运算

COMPUTE RESUIT = NUM1  + ( 3 + 3 - NUM3) * NUM2 / 5 - 2.
END-COMPUTE.

统计运算

FUNCTION SUM计算总和

COMPUTE RESULT = FUNCTION SUM (NUM1 NUM2 NUM3)

FUNCTION MEDIAN 计算中位数
FUNCTION MEAN 计算平均数