平方根の計算

平方根計算を一千万回実行する時間を比較。実行環境CPU:PentiumIII 1G・メインメモリ:1GB
COBOL
       WORKING-STORAGE SECTION.
       01 A       PIC 9(5).
       01 I       PIC 9(9).
       01 T1.
          05 HH1  PIC 99.
          05 MM1  PIC 99.
          05 SS1  PIC 99.
          05 VV1  PIC 99.
       01 T2.
          05 HH2  PIC 99.
          05 MM2  PIC 99.
          05 SS2  PIC 99.
          05 VV2  PIC 99.
       01 T3      PIC 9999V99.
       01 T3-EDIT PIC ZZZ9.99.
       PROCEDURE DIVISION.
           ACCEPT T1 FROM TIME.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10000000
               COMPUTE A = I ** 0.5
           END-PERFORM.
           ACCEPT T2 FROM TIME.
      *** 日付がまたがった時は計算できません。
           COMPUTE T3 = (HH2 * 360 + MM2 * 60 + SS2) + (VV2 / 100)
                      - (HH1 * 360 + MM1 * 60 + SS1) + (VV1 / 100)
           .
           MOVE T3 TO T3-EDIT.
           DISPLAY '平方根計算10,000,000回 ' T3-EDIT '秒'   .
           STOP RUN.

VB.NET
Module Module1
    Dim A As Decimal
    Sub Main()
        s1(10000000)
        S2(10000000)
    End Sub
    Private Sub s1(ByVal i As Decimal)
        Dim T1 As DateTime = Now
        For j As Integer = 1 To i
            A = Math.Sqrt(j)
        Next
        Dim T2 As DateTime = Now
        Dim T3 As TimeSpan = T2.Subtract(T1)
        Console.WriteLine(Format(i, "###,###,###") & "回の平方根計算 A = Math.Sqrt(B) " & T3.TotalSeconds & "秒")
    End Sub
    Private Sub S2(ByVal i As Decimal)
        Dim T1 As DateTime = Now
        For j As Integer = 1 To i
            A = j ^ 0.5
        Next
        Dim T2 As DateTime = Now
        Dim T3 As TimeSpan = T2.Subtract(T1)
        Console.WriteLine(Format(i, "###,###,###") & "回の平方根計算 A = B ^ 0.5      " & T3.TotalSeconds & "秒")
    End Sub
End Module

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

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