COBOLの計算方法

質問

COBOLの計算方法について解らない事があり、
質問させて頂きます。

例えば、
111.112÷3＝37.03733・・・
の計算で小数点第4位の切捨てまたは、切上をしたい場合、
どのようなコーディングをすればよろしいでしょうか？

回答No.1

judas-rising · ベストアンサー

01 WORK-AREA.
03 WK-ANS PIC S9(09)V9(04).
03 WK-WK PIC S9(09)V9(04).
03 WK-SUTE PIC S9(09)V9(03).
********************
PROSEDURE DIVISION.
********************
* 切り上げ
COMPUTE WK-WK = 111.112 / 3.
ADD 0.0009 TO WK-WK.
MOVE WK-WK TO WK-ANS. *> 切り上げ
* 四捨五入
COMPUTE WK-ANS ROUNDED = 111.112 / 3.
* 切捨て
COMPUTE WK-SUTE = 111.112 / 3.

何も意識しなければ切捨てになります。
四捨五入はROUNDEDか、0.0005を足してもＯＫ。
切り上げは0.0009する。

こんな感じで如何ですか！

回答No.3

noname#12261

02 COM-W PIC 9(6)V999.

切り捨て
COMPUTE COM-W = 111.112 / 3.0000
切り上げ
COMPUTE COM-W = 111.112 / 3.0000 + 0.0009

回答No.2

judas-rising

No.１です。

03 WK-ANS PIC S9(09)V9(03).

小数点以下３桁の間違いでした。