-
Lenguaje
Visual Basic .Net
-
Descripción
Algoritmo que permite ingresar los dos lados de un cuadrilátero, y muestra el texto "Es un cuadrado" si ambos lados forman un cuadrado o muestra el texto "Es un rectángulo" si la figura que se forma con dichos lados es un rectángulo, además mostrar el área y el perímetro de dicha figura.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Module CuadradoORectangulo
Sub Main()
Dim area, lado_a, lado_b, perimetro As Double
Console.Write("Ingresa el valor de lado a: ")
lado_a = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de lado b: ")
lado_b = Double.Parse(Console.ReadLine())
area=lado_a*lado_b
perimetro=(lado_a+lado_b)*2
If lado_a = lado_b Then
Console.WriteLine("Es un cuadrado")
Else
Console.WriteLine("Es un rect" & ChrW(&HE1) & "ngulo")
End If
Console.WriteLine("Valor de area: " & area)
Console.WriteLine("Valor de perimetro: " & perimetro)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim area, lado_a, lado_b, perimetro As Double
Console.Write("Ingresa el valor de lado a: ")
lado_a = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de lado b: ")
lado_b = Double.Parse(Console.ReadLine())
area=lado_a*lado_b
perimetro=(lado_a+lado_b)*2
If lado_a = lado_b Then
Console.WriteLine("Es un cuadrado")
Else
Console.WriteLine("Es un rect" & ChrW(&HE1) & "ngulo")
End If
Console.WriteLine("Valor de area: " & area)
Console.WriteLine("Valor de perimetro: " & perimetro)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module