-
Lenguaje
Visual Basic .Net
-
Descripción
Calcular el valor de π con N términos la siguiente serie:
π = 4/1 - 4/3 + 4/5 - 4/7 + 4/9 ...
Tenga en cuenta que mientras más términos genere más se acerca al valor de π.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Module ValorDePi
Sub Main()
Dim i, n As Integer
Dim pi As Double
pi = 0
Console.Write("Ingresa el valor de n: ")
n = Integer.Parse(Console.ReadLine())
For i = 1 To n
Console.WriteLine("PROCESO " & i)
pi=pi+4.0/(i*2-1)
Console.WriteLine()
Next i
Console.WriteLine("Valor de pi: " & pi)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim i, n As Integer
Dim pi As Double
pi = 0
Console.Write("Ingresa el valor de n: ")
n = Integer.Parse(Console.ReadLine())
For i = 1 To n
Console.WriteLine("PROCESO " & i)
pi=pi+4.0/(i*2-1)
Console.WriteLine()
Next i
Console.WriteLine("Valor de pi: " & pi)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module