1. 導入：なぜ「累乗」を知っておくべきか
COBOLといえば事務処理の王様ですが、現代のシステムでは統計データや利息計算など、複雑な数式を扱う機会も増えています。そんな時、ADDやMULTIPLYといった基本命令だけでは力不足です。そこで登場するのが「COMPUTE文」と「累乗演算子()」です。これを使えば、数行かかる複雑な計算を一行でスマートに記述できます。しかし、計算順序を誤ると致命的なバグを生むため、ベテランの作法をしっかり押さえておきましょう。
2. 基礎知識：累乗演算子とは？
累乗（るいじょう）とは、同じ数を繰り返し掛けることです。例えば「2の3乗」は「2×2×2＝8」となります。COBOLではこの計算を「」という記号で行います。
ここで最も重要なのが「演算子の優先順位」です。COBOLの算術演算には優先順位があり、累乗()は、乗算()や除算(/)よりも先に計算されます。このルールを知らずに式を書くと、意図しない数値が算出されるため注意が必要です。
3. 実装と解決策：カッコで計算順序を制御せよ
優先順位を暗記するのも一つの手ですが、現場の鉄則は「カッコ()を使って明示的に順序を指定すること」です。これにより、自分以外のプログラマーが見ても計算意図が明確になります。また、累乗計算を行う変数は、十分な桁数と小数点以下の精度を持つ「COMPUTE用の中間作業領域（PIC 9(n)V9(m)等）」を用意することが、誤差を防ぐコツです。
4. サンプルプログラム
以下のコードは、元本に利回りを掛けて複利計算を行う例です。コピーして動作を確認してみてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. POW-EXAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 元本、利率、年数、結果を定義
01 WS-PRINCIPAL PIC 9(7)V99 VALUE 100000.00.
01 WS-RATE PIC V9(4) VALUE 0.0500.
01 WS-YEAR PIC 9(2) VALUE 5.
01 WS-RESULT PIC 9(9)V99.
PROCEDURE DIVISION.
> 累乗演算子 を使用した複利計算
> 優先順位を明確にするため、カッコを多用するのがベテランの作法
COMPUTE WS-RESULT = WS-PRINCIPAL ((1 + WS-RATE) WS-YEAR)
DISPLAY “元本: ” WS-PRINCIPAL
DISPLAY “5年後の運用結果: ” WS-RESULT
GOBACK.
5. 応用・注意点：現場で陥りやすい罠
累乗計算で最も怖いのは「桁あふれ（オーバーフロー）」です。特に指数部分が大きくなると、結果は爆発的に増大します。結果を受け取る変数の桁数が足りないと、上位桁が切り捨てられ、とんでもない数値になるリスクがあります。
また、計算結果が負数になる場合や、底（ベースとなる数値）が負数の場合の挙動は、コンパイラの仕様によって異なる場合があります。複雑な計算を行う際は、必ず単体テストで境界値を検証し、計算結果が適正範囲に収まっているかを確認する癖をつけてください。
コメント