Question

How to calculate PI value with atan() function in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim pi As Double

        pi = Math.Atan(1) * 4

        Console.WriteLine("pi = {0}", pi)

    End Sub

End Module

'run:
' 
' pi = 3.14159265358979

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim zero As Single = 0
        Dim Infinity As Single = 1 / zero
        Dim pi As Double = 2 * Math.Atan(Infinity)

        Console.WriteLine("pi = {0}", pi)

    End Sub

End Module

'run:
' 
' pi = 3.14159265358979

 

70+ SQL courses for beginners and professionals