Double, approximation of Pi Learn programming Visual Basic (VB.net)

Lesson:

Basic Data Types


Exercise:

Double, approximation of Pi 108


Objetive:

Create a program to calculate an approximation for PI using the expression:

pi/4 = 1/1 - 1/3 + 1/5 -1/7 + 1/9 - 1/11 + 1/13 ...

The user will indicate how many terms must be used, and the program will display all the results until that amount of terms.


Code:

Imports System
Public Class exercise66
    Public Shared Sub Main()
        Dim terms As Integer
        Dim result As Double = 0
        Console.WriteLine("PI estimator!")
        Console.Write("Enter the amount of terms to test: ")
        terms = Convert.ToInt32(Console.ReadLine())

        For i As Integer = 1 To terms
            Dim divisor As Integer = 2 * i - 1

            If i Mod 2 = 1 Then
                result += 1.0F / divisor
            Else
                result -= 1.0F / divisor
            End If

            Console.WriteLine("To term {0}: {1}", i, 4 * result)
        Next
    End Sub
End Class