Pages

jueves, 31 de enero de 2013

Calcular sumatoria de la inversa de números impares Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que  permita calcular la suma de los primeros 30 términos de la siguiente serie: 1-1/3+1/5-1/7...+1/9 , Siendo N un numero ingresado por el teclado.

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim cad As String = ""
        Dim Sum As Double = 0.0
        Dim n As Integer
        Dim div As Double = 0.0
        n = TextBox1.Text
        For i As Integer = 1 To n
            div = (1 / ((2 * i) - 1))
            If (i Mod 2 = 0) Then
                Sum = Sum - div
            Else
                Sum = Sum + div
            End If
        Next i
        TextBox2.Text = Trim(Sum)
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada