ibm-midrange - ドルの価値を次のニッケルに丸める必要がある

Question

誰かがドルの価値を次に高いニッケルに丸める例を教えてもらえますか? 例: 金額が 21.402 の場合、21.40 ではなく 21.45 にする必要があります。現在、この場合は 21.40 になるNEARESTニッケルに丸めています。.45 に丸める必要があります。

編集コード:

 C                   Eval      Work=0
 C                   Eval      RMD=0
 C     Price         DIV       .05           Work
 C                   MVR                     RMD
 C                   If        RMD > 0
 C                   Eval      Price = (Work * .05) + .05
 C                   EndIf

Answer 1

答えは、フィールドの (特定されていない) 定義にありWORKます。MVR は残りを返します - 分割後に残ったニッケルの数。割り算の結果が小数であれば余りはありません。フィールドが定義されている場合:

 d work            s              9p 2
 d rmd             s             15p 6
 d price           s              7p 3 inz(21.402)

それから

 C     Price         DIV       .05           Work

は 428.04 を入れWORK、余りはありません - 完全な結果は に保存されWORKます。フィールドが定義されている場合:

 d work            s              9p 0
 d rmd             s             15p 6
 d price           s              7p 3 inz(21.402)      

それから

 C     Price         DIV       .05           Work

428 を入れるWORKと、残りは .002 になります。