Skip to content

Instantly share code, notes, and snippets.

@alienbogart
Created October 8, 2018 07:47
Show Gist options
  • Save alienbogart/db8e81d4c71cd017dd40ea30bb15e070 to your computer and use it in GitHub Desktop.
Save alienbogart/db8e81d4c71cd017dd40ea30bb15e070 to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment