Aplicación Consola con
System.Math Fecha: 16/Oct/2004 (Octubre 14 de 2004)
|
Utilizaremos el NameSpace System.Math para leer dos datos ingresados por consola, y que retorne la suma de sus cuadrados y su diferencia, usando las funciones SumaCuadrado y RestaCuadrado
Código Fuente
'Importamos el NameSpace System.Math con un AliasName M para hacer referencia_
'a los elementos de Math
Imports
M = System.MathModule
Module1Public N1 As Double 'Sumando uno
Public N2 As Double 'Sumando dos Sub Main()Try
Console.Write("Ingrese sumando uno: ")
N1 = Console.ReadLine
'Leer sumando uno ingresadoConsole.WriteLine()
Console.Write("Ingrese sumando dos: ")
N2 = Console.ReadLine
'Leer sumando dos ingresadoConsole.WriteLine()
Console.WriteLine("Suma de los cuadrados: ")
Console.WriteLine(SumaCuadrado(N1, N2))
'se llama a la función SumaCuadrado con los datos ingresadosConsole.WriteLine()
Console.WriteLine("Diferencia de los cuadrados: ")
Console.WriteLine(RestaCuadrado(N1, N2))
'se llama a la función RestaCuadrado con los datos ingresadosConsole.WriteLine()
Console.WriteLine("Ejecución Finalizada")
Console.WriteLine("Presione ENTER pasa salir")
Console.ReadLine()
Catch err As Exception
Console.Write(err.Message)
End Try
End Sub Function SumaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double TrySumaCuadrado = M.Pow(NOne, 2) + M.Pow(NTwo, 2)
Return SumaCuadrado
Catch err As Exception
End Try
End Function Function RestaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double TryRestaCuadrado = M.Pow(NOne, 2) - M.Pow(NTwo, 2)
Return RestaCuadrado
Catch err As Exception
End Try
End Function 'En las funciones se utiliza el método Pow que recibe dos argumentos_ 'el primero es el número que se va a elevar a una potencia y el segundo es la potencia 'Los bloques TRY CATCH me controlan las excepciones para evitar que el programa se desborde_ 'en tiempo de ejecucíónEnd
Module
Fichero con el código de ejemplo: luisf_aplicacionconsolasystemmath.zip - Tamaño 4.83 KB