コボラー(COBOL)的VB.NET: 数学関数

2007年4月29日 (日)

数学関数

COBOL
最大値          MAX
最小値          MIN
平方根          SQRT
乱数             RANDOM
剰余             MEM
モジュロー値 MOD：引数-1 -(引数-2*FUNCTION INTEGER(引数-1/引数-2))
整数の最大値    INTEGER
整数部             INTEGER-PART
サイン                SIN
コサイン             COS
タンジェント       TAN
アークサイン       ASIN
アークタンジェント ATAN
アークコサイン    ACOS
階乗　             FACTORIAL
自然対数　       LOG
対数　             LOG10
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 D1 PIC X(10) VALUE "0123456789".
   01 D REDEFINES D1 PIC 9 OCCURS 10.
   01 ANS1 PIC S9(5)V99.
   01 ANS2 PIC S9(5)V99.
   01 ANS3 PIC S9(5)V99.
   01 ANS4 PIC S9(5)V99.
   01 ANS5 PIC S9(5)V99.
   01 ANS6 PIC S9(5)V99.
   01 ANS7 PIC S9(5)V99.
   01 ANS8 PIC S9(5)V99.
   01 ANS9 COMP-2.
   01 ANS10 COMP-2.
   01 ANS11 COMP-2.
   01 ANS12 PIC S9(5)V99.
   01 ANS13 PIC S9(5)V99.
   01 ANS14 PIC S9(5)V99.
   01 ANS15 PIC S9(5)V99.
   01 ANS16 PIC S9(15)V99.
   01 ANS17 PIC S9(15)V99.
   01 ANS18 PIC S9(4)V99 OCCURS 3.
   01 ANS0 PIC ---,--9.99.
   01 ANS01 PIC --9.99.
   PROCEDURE DIVISION.
         COMPUTE ANS1 = FUNCTION ABS(-11.1)
         COMPUTE ANS2 = FUNCTION MAX (D(ALL)) .
         COMPUTE ANS3 = FUNCTION MIN (D(ALL)) .
         COMPUTE ANS4 = FUNCTION SQRT(2)       .
         COMPUTE ANS5 = FUNCTION REM (10,3)    .
         COMPUTE ANS6 = FUNCTION MOD (-10,3)    .
         COMPUTE ANS7 = FUNCTION INTEGER (-3 / 2).
         COMPUTE ANS8 = FUNCTION INTEGER-PART (-3 / 2)
         COMPUTE ANS9 = FUNCTION SIN(360 / 3.14)
         COMPUTE ANS10 = FUNCTION COS(360 /3.14)
         COMPUTE ANS11 = FUNCTION TAN(360 / 3.14)
         COMPUTE ANS12 = FUNCTION ASIN(ANS9)
         COMPUTE ANS13 = FUNCTION ACOS(ANS10)
         COMPUTE ANS14 = FUNCTION ATAN(ANS11)
         COMPUTE ANS15 = FUNCTION LOG(2.718281828459045)
         COMPUTE ANS16 = FUNCTION LOG10(10000)
         COMPUTE ANS17 = FUNCTION FACTORIAL(8)
         COMPUTE ANS18(1) = FUNCTION RANDOM()    .
         COMPUTE ANS18(2) = FUNCTION RANDOM()    .
         COMPUTE ANS18(3) = FUNCTION RANDOM()    .
         MOVE ANS1 TO ANS0
         DISPLAY "             絶対値 ABS(-11.1) =" ANS0
         MOVE ANS2 TO ANS0
         DISPLAY "最大値 MAX(0,1,2,3,4,5,6,7,8,9) =" ANS0
         MOVE ANS3 TO ANS0
         DISPLAY "最小値 MIN(0,1,2,3,4,5,6,7,8,9) =" ANS0
         MOVE ANS4 TO ANS0
         DISPLAY "                平方根 SQRT(2) =" ANS0
         MOVE ANS5 TO ANS0
         DISPLAY "             剰余 REM(10 / 3) =" ANS0
         MOVE ANS6 TO ANS0
         DISPLAY "引数-1 -(引数-2*FUNCTION INTEGER(引数-1/引数-2))"
         DISPLAY "    モジュロー値 MOD(-10 / 3) =" ANS0
         MOVE ANS7 TO ANS0
         DISPLAY "    整数の最大値 INTEGER(-3/2) =" ANS0
         MOVE ANS8 TO ANS0
         DISPLAY "    整数部 INTEGER-PART(-3/2) =" ANS0.
         DISPLAY "          サイン SIN(360/3.14) =" ANS9.
         DISPLAY "       コサイン COS(360/3.14) =" ANS10.
         DISPLAY "    タンジェント TAN(360/3.14) =" ANS11.
         MOVE ANS12 TO ANS01
         DISPLAY "          アークサイン ASIN(" ANS9 ")=" ANS01.
         MOVE ANS13 TO ANS01
         DISPLAY "       アークコサイン ACOS(" ANS10 ")=" ANS01.
         MOVE ANS14 TO ANS01
         DISPLAY "    アークタンジェント ATAN(" ANS11 ")=" ANS01.
         MOVE ANS15 TO ANS0
         DISPLAY "自然対数 LOG(2.718281828459045) =" ANS0.
         MOVE ANS16 TO ANS0
         DISPLAY "             対数 LOG10(10000) =" ANS0.
         MOVE ANS17 TO ANS0
         DISPLAY "             階乗 FACTORIAL(8) =" ANS0.
         MOVE ANS18(1) TO ANS0
         DISPLAY "                乱数 RANDOM() =" ANS0.
         MOVE ANS18(2) TO ANS0
         DISPLAY "                乱数 RANDOM() =" ANS0.
         MOVE ANS18(3) TO ANS0
         DISPLAY "                乱数 RANDOM() =" ANS0.
         STOP RUN.

            絶対値 ABS(-11.1) =    11.10
最大値 MAX(0,1,2,3,4,5,6,7,8,9) =    9.00
最小値 MIN(0,1,2,3,4,5,6,7,8,9) =    0.00
               平方根 SQRT(2) =    1.41
            剰余 REM(10 / 3) =    1.00
引数-1 -(引数-2*FUNCTION INTEGER(引数-1/引数-2))
   モジュロー値 MOD(-10 / 3) =    2.00
   整数の最大値 INTEGER(-3/2) =    -2.00
   整数部 INTEGER-PART(-3/2) =    -1.00
         サイン SIN(360/3.14) = .999829797538426930E 00
      コサイン COS(360/3.14) = .184492805894424270E-01
   タンジェント TAN(360/3.14) = .541934300739389270E 02
         アークサイン ASIN( .999829797538426930E 00)= 1.55
      アークコサイン ACOS( .184492805894424270E-01)= 1.55
   アークタンジェント ATAN( .541934300739389270E 02)= 1.55
自然対数 LOG(2.718281828459045) =    1.00
            対数 LOG10(10000) =    4.00
            階乗 FACTORIAL(8) = 40,320.00
               乱数 RANDOM() =    0.47
               乱数 RANDOM() =    0.80
               乱数 RANDOM() =    0.58

VB.NET
Abs 絶対値
Sqrt 平方根
Exp 階乗
Round 指定した値に最も近い整数(四捨五入ではありません）
Floor 指定した数値以下の最大の整数
Ceiling 指定した数値以上の最小の整数
Sign 数値の符号
Asin アークサイン
Acos アークコサイン
Atan アークタンジェント
Sin サイン
Cos コサイン
Tan タンジェント
Log 自然対数
Log10 対数
Min 二つの数のうち小さい方
Max 二つの数のうち大きい方
Pow　べき乗
IEEERemainder 剰余

Module Module1
Sub Main()
      '.ToStringは文字列変換の関数
      Console.WriteLine("絶対値(-12.8)=" + Math.Abs(-12.8).ToString)
      Console.WriteLine("平方根(2)=" + Math.Sqrt(2).ToString)
      Console.WriteLine("階乗(2)=" + Math.Exp(2).ToString)
      Console.WriteLine("階乗(2.7182818284590451^2)=" + (2.7182818284590451 ^ 2).ToString)
      Console.WriteLine("最も近い整数(-0.5)=" + Math.Round(-0.5).ToString)
      Console.WriteLine("指定した数値以下の最大の整数(-0.5)=" + Math.Floor(-0.5).ToString)
      Console.WriteLine("指定した数値以上の最小の整数(-0.5)=" + Math.Ceiling(-0.5).ToString)
      Console.WriteLine("数値の符号(-9)=" + Math.Sign(-9).ToString)
      Console.WriteLine("数値の符号(9)=" + Math.Sign(9).ToString)
      Console.WriteLine("サイン(360 / 3.14)=" + Math.Sin(360 / 3.14).ToString)
      Console.WriteLine("コサイン(360 / 3.14)=" + Math.Cos(360 / 3.14).ToString)
      Console.WriteLine("タンジェント(360 / 3.14)=" + Math.Tan(360 / 3.14).ToString)
      Console.WriteLine("アークサイン" + Math.Asin(Math.Sin(360 / 3.14)).ToString)
      Console.WriteLine("アークコサイン" + Math.Acos(Math.Cos(360 / 3.14)).ToString)
      Console.WriteLine("アークタンジェント" + Math.Atan(Math.Tan(360 / 3.14)).ToString)
      Console.WriteLine("自然対数(2.7182818284590451)=" + Math.Log(2.7182818284590451).ToString)
      Console.WriteLine("対数(10000)=" + Math.Log10(10000).ToString)
      Console.WriteLine("2 つの数のうち小さい方(-12.1,7)=" + Math.Min(-12.1, 7).ToString)
      Console.WriteLine("2 つの数のうち大きい方(-12.1,7)=" + Math.Max(-12.1, 7).ToString)
      Console.WriteLine("べき乗(2,32)=" + Convert.ToDecimal(Math.Pow(2, 32)).ToString)
      Console.WriteLine("剰余(10,3)=" + Math.IEEERemainder(10, 3).ToString)
      Console.WriteLine("剰余(10mod3)=" + (10 Mod 3).ToString)
End Sub

End Module

絶対値(-12.8)=12.8
平方根(2)=1.4142135623731
階乗(2)=7.38905609893065
階乗(2.7182818284590451^2)=7.38905609893065
最も近い整数(-0.5)=0
指定した数値以下の最大の整数(-0.5)=-1
指定した数値以上の最小の整数(-0.5)=0
数値の符号(-9)=-1
数値の符号(9)=1
サイン(360 / 3.14)=0.999829797538427
コサイン(360 / 3.14)=0.0184492805894511
タンジェント(360 / 3.14)=54.1934300739134
アークサイン1.55234599942986
アークコサイン1.55234599942986
アークタンジェント1.55234599942986
自然対数(2.7182818284590451)=1
対数(10000)=4
つの数のうち小さい方(-12.1,7)=-12.1
つの数のうち大きい方(-12.1,7)=7
べき乗(2,32)=4294967296
剰余(10,3)=1
剰余(10mod3)=1

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