Question

Construa um algoritmo que receba o valor de um lado de um triângulo equilátero e calcule a
altura desse triângulo.

Answer 1

algoritmo "triangulo"
//Dados 3 valores A, B e C, verificar se eles podem ser os comprimentos dos //lados de um triângulo e, se forem, verificar se compõem um triângulo //eqüilátero, isósceles ou escaleno. Informar se não compuserem nenhum //triângulo.
var l1, l2, l3: real
validade: logico
inicio
escreva ("Insira o lado 1 do triângulo: ")
leia (l1)
escreva ("Insira o lado 2 do triângulo: ")
leia (l2)
escreva ("Insira o lado 3 do triângulo: ")
leia (l3)
 
se (l1 < (l2 + l3)) e (l2 < (l1 + l3)) e (l3 < (l1 + l2)) entao
   validade <- VERDADEIRO
senao
   validade <- FALSO
fimse
 se (validade = VERDADEIRO) entao
   se (l1 = l2) e (l1 = l3) e (l2 = l3) entao
      escreva ("Triângulo equilátero")
   fimse
   se ((l1 = l2) e (l1 <> l3)) xou ((l1 = l3) e (l1 <> l2)) xou ((l2 = l3) e (l2 <> l1))
entao
      escreva ("Triângulo isóceles")
   fimse
   se (l1 <> l2) e (l1 <> l3) e (l2 <> l3) entao
      escreva ("Triângulo escaleno")
   fimse
senao
   escreva ("Não é um triângulo")
fimse
 fimalgoritmo

referência: http://forum.imasters.com.br/topic/480041-problema-com-algoritmo-no-visualg/