COBOL 算術演算

COBOL では、専用の動詞 (ADD、SUBTRACT、MULTIPLY、DIVIDE) を使用するか、汎用的で表現力豊かな COMPUTE ステートメントを使用して数学演算を実行できます。

形式動詞を使用した算術演算

COBOL は、基本的な算術演算ごとに特定のテキスト命令を提供します。

1. 追加 (ADD)

1 つ以上の値を変数に追加します。

ADD WS-NUM-A TO WS-NUM-B.
* Equivalent to: WS-NUM-B = WS-NUM-B + WS-NUM-A

加数を変更せずに結果を 3 番目の変数に保存する場合は、GIVING 句を使用します。

ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.

2. 減算 (SUBTRACT)

ある値を別の値から減算します。

SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.

3. 乗算 (MULTIPLY) と除算 (DIVIDE)

同様の方法で値を乗算およ​​び除算します。

MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.

COMPUTE ステートメント

複雑な数式の場合、個々の算術動詞を使用すると長くなり、読みにくくなることがあります。 COMPUTE ステートメントを使用すると、現代言語と同様の標準数学演算子 (累乗の +、-、*、/、**) を使用できます。

COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.

自分で試してみてください