TOP

Visual Basic Consola - Repetitiva MIENTRAS 10




10. Hacer un programa que permita ingresar un número cualquiera y muestre la serie Fibonacci teniendo como el fin de la serie el número ingresado.



Imports System.Console

Module Module10
    Dim cont, num, a, b, c
    Sub Main()
        Write("Ingrese un número : ")
        num = ReadLine()
        WriteLine()
        WriteLine("SERIE FIBONASSI")
        WriteLine()
        a = 0
        b = 1
        c = 0
        While (cont <= num - 1)
            Write(c & " ")
            a = b
            b = c
            c = a + b
            cont = cont + 1
        End While
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.