Pages

martes, 15 de enero de 2013

Calcular n primeros términos de la serie de Fibonacci Codigo Fuente en Visual Basic

Problema
Calcular n primeros términos de la serie de Fibonacci

Solución
El usuario ingresa el número de términos que desea visualizar de la serie de Fibonacci.
La sucesión de Fibonacci es la siguiente sucesión infinita de números naturales:

                       0,1,1,2,3,5,8,13,21,34,55,89,144,233,377

Ejemplo
  • Entrada: 5
  • Salida: 0 1 1 2 3
Codigo Fuente en Visual Basic
Public Class Form1
    Dim var As String = "0"
    Public Function fibonacci(ByVal contador As Integer,
    ByVal n As Integer, ByVal p1 As Integer, ByVal p2 As Integer)
        If (contador <> n) Then
            var = var + " - " + Trim(p2)
            TextBox2.Text = var
            fibonacci(contador + 1, n, p2, p1 + p2)
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        n = TextBox1.Text
        If (n > 0) Then
            fibonacci(0, n - 1, 0, 1)
        End If
    End Sub
End Class

4 comentarios:

Anónimo dijo...

puto visual basic .!.

Anónimo dijo...

y para que calcule el enesimo numero de la serie como? AYUDAA!!

Anónimo dijo...

te amo

Miguel Angel Noa A. dijo...

muchas gracias ..

Publicar un comentario en la entrada