-
Lenguaje
Visual Basic .Net
-
Descripción
Determinar la raíz cuadrada siempre y cuando el valor que se introduzca sea positivo. Si es negativo, enviar mensaje de raíz imaginaria.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Module RaizCuadrada
Sub Main()
Dim numero, raiz_cuadrada As Double
Console.Write("Ingresa el valor de numero: ")
numero = Double.Parse(Console.ReadLine())
If numero>=0 Then
raiz_cuadrada=Math.Sqrt(numero)
Else
raiz_cuadrada=Math.Sqrt(-numero)
Console.WriteLine("ra" & ChrW(&HED) & "z imaginaria")
End If
Console.WriteLine("Valor de raiz cuadrada: " & raiz_cuadrada)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim numero, raiz_cuadrada As Double
Console.Write("Ingresa el valor de numero: ")
numero = Double.Parse(Console.ReadLine())
If numero>=0 Then
raiz_cuadrada=Math.Sqrt(numero)
Else
raiz_cuadrada=Math.Sqrt(-numero)
Console.WriteLine("ra" & ChrW(&HED) & "z imaginaria")
End If
Console.WriteLine("Valor de raiz cuadrada: " & raiz_cuadrada)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module