Construa um algoritmo que receba o valor de um lado de um triângulo equilátero e calcule a altura desse triângulo.
Lista de comentários
flaviorvalgoritmo "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. varl1, 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
Lista de comentários
//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.
varl1, 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/