/*Programa: Triángulo
Autores: lidia y
pablo
Descripción: este
programa lee la longitud
de los 3 lados de
un
triángulo y analiza que tipo
de triángulo es (no
existe
triángulo,
equilátero, isósceles escaleno y
rectángulo)*/
Program
Triangulo
Method Main()
//definir variables y
leer vértices
Var
ladoAB
As
Decimal=ConsoleReadDecimal("Longitud
del lado AB? ",True)
Var
ladoAC
As
Decimal=ConsoleReadDecimal("Longitud
del lado AC? ",True)
Var
ladoBC
As
Decimal=ConsoleReadDecimal("Longitud
del lado BC? ",True)
ConsoleWriteLine("")
//análisis del triángulo
e impresión de
resultados
//si la suma de 2 lados
no es mayor que el
tercero,
//entonces no
existe triángulo
If
(ladoAB+ladoAC<=ladoBC)
Or
(ladoAB+ladoBC<=ladoAC)
Or
(ladoBC+ladoAC<=ladoAB)
Then
ConsoleWriteLine("No
existe triángulo")
Else
//si los 3 son iguales
tenemos un equilátero
If
(ladoAB=ladoAC)
And
(ladoAC=ladoBC)
Then
ConsoleWriteLine("El
triángulo es equilátero")
ConsoleWriteLine("")
//si 2 son iguales el triángulo
es isósceles
Else If
(ladoAC=ladoAB)
Or
(ladoBC=ladoAB)
Or
(ladoBC=ladoAC)
Then
ConsoleWriteLine("El
triángulo es isósceles")
//en caso contrario
escaleno
Else
ConsoleWriteLine("El
triángulo es escaleno")
End If
End If
//además si verifica el
Teorema de Pitágoras, el
//triángulo será
rectángulo
If
(ladoAB*ladoAB+ladoAC*ladoAC=ladoBC*ladoBC)
Or
(ladoAB*ladoAB+ladoBC*ladoBC=ladoAC*ladoAC)
Or
(ladoBC*ladoBC+ladoAC*ladoAC=ladoAB*ladoAB)
Then
ConsoleWriteLine("El
triángulo es rectángulo")
ConsoleWriteLine("")
End If
End Method
End Program