Ejemplo: Funciones y Procedimientos

En un ejemplo anterior "Funciones y Procedimientos", vimos la teoria de lo que son los Procedimientos y Funciones en programacion, ahora veremos un ejemplo completo.

Ejercicio. se desea calcular el factorial de un numero utilizando funciones y procedimientos

Factorial: Para todo número natural n, se llama n factorial o factorial de n al producto de todos los naturales desde 1 hasta n:

01 Module Module1
02 
03     Sub Main()
04         ' se declara una variable
05         Dim numero As Integer
06         ' se lee un numero entero utilizando la funcion Leer_Numero()
07         numero = Leer_Numero()
08         ' se llama a un procedimiento
09         Mostrar_resultado(numero)
10     End Sub
11 
12     ' procedimiento encargado de imprimir el resultado
13     Private Sub Mostrar_resultado(ByVal i As Integer)
14         Console.WriteLine("El factorial de " & i & " es " & Factorial(i))
15         Console.WriteLine()
16         Console.WriteLine("presione cualquier tecla para terminar...")
17         Console.ReadLine()
18     End Sub
19 
20     ' funcion que lee un numero entero
21     Private Function Leer_Numero() As Integer
22         Dim n As Integer
23         Do
24             Console.WriteLine("Por favor ingrese un numero de 1 a 10")
25             Console.Write("Numero: ")
26             n = Val(Console.ReadLine)
27         Loop While n > 10 Or n <= 0
28         Return n
29     End Function
30 
31     ' funcion que calcula el factorial de un numero pasado como parametro
32     Private Function Factorial(ByVal n As Integer) As Long
33         Dim i As Integer
34         Dim fac As Long
35         fac = 1
36         For i = 1 To n
37             fac = fac * i
38         Next
39         Return fac
40     End Function
41 End Module

El resultado

Posted in: Algoritmo,Ejercicios,Visual Basic