algoritmo "Triangulador"
var
a,b,c,maior,meio,menor:REAL
inicio
escreval("Digite 3 valores: ")
leia(a)
leia(b)
leia(c)
se(a<b+c)e(b<a+c)e(c<a+b)entao
se(a=b)e(b=c)entao
escreval("os valores digitados formam um triangulo equilatero")
senao
se(a=b)ou(b=c)ou(c=a)entao
escreval("os valores digitados formam um triangulo isoceles")
senao
se (a<b) e (a<c) e (b<c) entao
menor <- a
meio <- b
maior <- c
fimse
se (a<b) e (a<c) e (c<b) entao
menor <- a
meio <- c
maior <- b
fimse
se (b<a) e (b<c) e (a<c) entao
menor <- b
meio <- a
maior <- c
fimse
se (b<a) e (b<c) e (c<a) entao
menor <- b
meio <- c
maior <- a
fimse
se (c<a) e (c<b) e (a<b) entao
menor <- c
meio <- a
maior <- b
fimse
se (c<a) e (c<b) e (b<a) entao
menor <- c
meio <- b
maior <- a
fimse
se(maior^2=meio^2+menor^2)entao
escreval("triangulo escaleno do tipo retangulo")
senao
se(maior^2>meio^2+menor^2)entao
escreval("triangulo escaleno do tipo obtusangulo")
senao
escreval("triangulo escaleno do tipo acutangulo")
fimse
fimse
fimse
fimse
senao
escreval("os valores digitados nao formam qualquer triangulo")
fimse
fimalgoritmo