dポイントプレゼントキャンペーン実施中！

COBOLの計算方法

解決済

  • 質問者：Soccer1919
  • 質問日時：
  • 回答数：3件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (3件)

No.1ベストアンサー

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する。

こんな感じで如何ですか！
    • good
    • 3
    • 件
通報する

No.3

02 COM-W PIC 9(6)V999.



切り捨て
COMPUTE COM-W = 111.112 / 3.0000
切り上げ
COMPUTE COM-W = 111.112 / 3.0000 + 0.0009
    • good
    • 0
    • 件
通報する

No.2

No.１です。



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

小数点以下３桁の間違いでした。
    • good
    • 3
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報