Ejercicio 2 (Visual Basic.NET, aplicación de consola)
Introducción: En este ejercicio se introduce el concepto de "Procedimiento", que básicamente permiten definir un conjunto de acciones y "llamarlo" para su ejecución desde diferentes partes del código sin necesidad de escribir el código (de las acciones que este ejecuta) cada vez.
Se utiliza también la función "If", que permite determinar la realización de una acción o no dependiendo de si se cumple una condición determinada.
Se utiliza un Proyecto de tipo "Aplicación de consola" de Visual Basic 2010 que se ejecuta precisamente en una consola de MS-DOS para interactuar con el usuario.
Letra: solicitar el ingreso de un número, analizar si es par o no y mostrar el resultado
Introducción: En este ejercicio se introduce el concepto de "Procedimiento", que básicamente permiten definir un conjunto de acciones y "llamarlo" para su ejecución desde diferentes partes del código sin necesidad de escribir el código (de las acciones que este ejecuta) cada vez.
Se utiliza también la función "If", que permite determinar la realización de una acción o no dependiendo de si se cumple una condición determinada.
Se utiliza un Proyecto de tipo "Aplicación de consola" de Visual Basic 2010 que se ejecuta precisamente en una consola de MS-DOS para interactuar con el usuario.
Letra: solicitar el ingreso de un número, analizar si es par o no y mostrar el resultado
Código de la Solución:
Module Module1
Sub Main()
Console.Write("Ingrese un número: ")
Dim nro As Integer
nro = Console.ReadLine()
Dim resultado As Boolean
resultado = esPar(nro)
Lineapunteada()
MostrarResultado(resultado)
End Sub
'Procedimiento que muestra el resultado de la comparación de esPar
Sub MostrarResultado(ByVal res As Boolean)
Console.WriteLine("Resultado: " & res)
Console.ReadLine()
End Sub
'Procedimiento que agrega una línea punteada
Sub Lineapunteada()
Console.WriteLine(".......................")
End Sub
'Función que determina si el número es par determinando si el resto de dividirlo entre 2 es 0
Function esPar(ByVal n As Integer) As Boolean
Dim es As Boolean
If n Mod 2 = 0 Then
es = True
End If
Return es
End Function
No hay comentarios:
Publicar un comentario