Question

Lógica de Programação - Expressões

(pergunta em anexo)

Answer 1

Início
Escreva "Entre o lado do triangulo: "
Leia L
Faca H = L*sqrt(3)/2
Escreva "Altura igual a : "
Escreva H
Fim

Espero ter ajudado.

Answer 2

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/