Pages

lunes, 14 de enero de 2013

Obtener el factorial de un número Codigo Fuente en Visual Basic

Problema
Ingrese un número y obtenga su factorial.

Solución
Para solucionar el  problema  del factorial, se resolverá de forma recursiva.

Ejemplo:
  • Entrada = 5
Para calcular se multiplica el  numero dado por su antecesor hasta que este sea igual a cero en lo cual el factorial(1)=factorial(0)=1

           5 * 4 * 3 * 2 * 1 * 0
  • Resultado = 120
Codigo Fuente en Visual Basic
    
Public Class Form1
    Public Function factorial(ByVal X As Integer, ByVal N As Integer)
        If (N > 0) Then
            X = factorial(X, N - 1)
            X = X * N
        Else
            X = 1
        End If
        Return X
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim X As Integer
        Dim N As Integer
        N = TextBox1.Text
        X = factorial(X, N)
        TextBox2.Text = Trim(X)
    End Sub
End Class

7 comentarios:

JUAN ANDRES APONTE MEJIA dijo...

buena

Anónimo dijo...

asddsaadsdassadsda

Anónimo dijo...

muy bueno!

Jesùs Skanker dijo...

¡Gracias!

Anónimo dijo...

ok!

Anónimo dijo...

La galvan les agradece :)

Unknown dijo...

No se pide eso se pide diagramas

Publicar un comentario en la entrada