四捨五入

定数７を２で割った値の小数点以下第一位を四捨五入する。３．５→４

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(2) VALUE 7.
       01 B PIC 9(2).
       PROCEDURE DIVISION.
           COMPUTE B ROUNDED = A / 2.
           DISPLAY B UPON CONSOLE.
           STOP RUN.
#結果　B=4

VB.NET
COBOLと同じROUND命令がありますが四捨五入の機能は有りません。
Format関数で文字編集後Decimalデータに変換しています。
Module Module1
    Sub Main()
        Dim A As Decimal = 7
        Dim B As Decimal
        B = Convert.ToDecimal(Format(A / 2, "#0"))
        Console.WriteLine(B)
    End Sub
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。