-
Lenguaje
Visual Basic .Net
-
Descripción
Lee un valor entero, calcular su raíz cuadrada, su cuadrado y su cubo y muestra los resultados.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Module RaizCuadradaCuadradoYCubo
Sub Main()
Dim cuadrado, cubo, numero_entero, raiz_cuadrada As Integer
Console.Write("Ingresa el valor de numero entero: ")
numero_entero = Integer.Parse(Console.ReadLine())
raiz_cuadrada=Math.Sqrt(numero_entero)
cuadrado=numero_entero*numero_entero
cubo=cuadrado*numero_entero
Console.WriteLine("Valor de cuadrado: " & cuadrado)
Console.WriteLine("Valor de cubo: " & cubo)
Console.WriteLine("Valor de raiz cuadrada: " & raiz_cuadrada)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim cuadrado, cubo, numero_entero, raiz_cuadrada As Integer
Console.Write("Ingresa el valor de numero entero: ")
numero_entero = Integer.Parse(Console.ReadLine())
raiz_cuadrada=Math.Sqrt(numero_entero)
cuadrado=numero_entero*numero_entero
cubo=cuadrado*numero_entero
Console.WriteLine("Valor de cuadrado: " & cuadrado)
Console.WriteLine("Valor de cubo: " & cubo)
Console.WriteLine("Valor de raiz cuadrada: " & raiz_cuadrada)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module