xPasos - TODO POR PASOS

Objetivo:

Comprender el uso de la instrucción IF-ENDIF, y el uso del operadores lógicos AND y OR.


Problema:

Dadas las longitudes de los tres lados de un triángulo, determinar que clase de triángulo es, así:

• Triángulo equilátero = tres lados iguales.
• Triángulo isóseles = dos lados iguales, uno diferente.
• Triángulo escaleno = tres lados diferentes.

Solución:

---

Análisis

Hay muchas formas de solucionar este problema. Para nuestro caso usaremos varias instrucciones condicionales para comparar las longitudes de los lados, las cuales serán almacenadas en tres variables enteras.


SI longitud_lado_A = longitud_lado_B = longitud_lado_C ENTONCES MOSTRAR "ES UN TRIANGULO EQUILATERO" y FIN


SI (longitud_lado_A = longitud_lado_B) o (longitud_lado_A = longitud_lado_C) o (longitud_lado_B = longitud_lado_C) ENTONCES MOSTRAR "ES UN TRIANGULO ISOCELES" y FIN


MOSTRAR "ES UN TRIANGULO ESCALENO" y FIN (en caso de no ser EQUILATERO ni ISOCELES)

---

Variables

Se usaran tres variables para leer las longitudes de los lados del triángulo.

i_A = Longitud lado A
i_B = Longitud lado B
i_C = Longitud lado C

---

Programa

;EJEMPLO NUMERO 002

EnableExplicit

OpenConsole()

Define.i i_A, i_B, i_C

Print("LADO A: ")
i_A=Val(Input())
Print("LADO B: ")
i_B=Val(Input())
Print("LADO C: ")
i_C=Val(Input())

If i_A = i_B  And  i_A = i_C
Print("ES UN TRIANGULO EQUILATERO")
Input()
CloseConsole()
End
EndIf

If i_A = i_B  Or  i_A = i_C  Or  i_B = i_C
Print("ES UN TRIANGULO ISOCELES")
Input()
CloseConsole()
End
EndIf

Print("ES UN TRIANGULO ESCALENO")

Input()
CloseConsole()
End

---