01_Triangulo.alg

Algoritmo "Triângulos"
var

l: vetor [1..3] de real
i: inteiro

inicio

escreval("---------------------------------------")
escreval("Lados de um Triângulo")
escreval("---------------------------------------")

para i de 1 ate 3 faca
     escreva("Digite o lado", i, " do triângulo em centímetros: ")
     leia(l[i])
fimpara

escreval("---------------------------------------")

se (l[1] < (l[2] + l[3])) e (l[2] < (l[1] + l[3])) e (l[3] < (l[1] + l[2])) entao
   escreval("Okay! esses lados formam um triângulo!")
   escreval("---------------------------------------")
   se (l[1] = l[2]) e (l[2] = l[3]) entao
      escreval("Este é um triângulo equilátero!")
      escreval("---------------------------------------")
   fimse
   se (l[1] = l[2]) ou (l[2] = l[3]) ou (l[1] = l[3]) entao
      escreval("Este é um triângulo isósceles!")
      escreval("---------------------------------------")
   fimse
   se (l[1] <> l[2]) e (l[2] <> l[3]) entao
      escreval("Este é um triângulo escaleno!")
      escreval("---------------------------------------")
   fimse
   senao
	escreval("Esses lados não formam um triângulo. Sorry :(")
fimse

fimalgoritmo