algoritmo "Cálculo da área do triângulo"
var
h, b, area: real
inicio
escreval ("***Cálculo da àrea do Triângulo***")
escreva ("Qual o valor da altura?")
leia (h)
Escreva ("Qual o valor da base?")
leia (b)
area <- (b*h)/2
Escreva ("A área deste triângulo eh ", area)
fimalgoritmo
Nenhum comentário:
Postar um comentário