algoritmo "Calculo area circulo"
var
r, area:real
inicio
escreval ("Calculo para descobrir a area do circulo")
escreval ("Digite o valor do raio do circulo")
leia (r)
area <- 3.14*r^2
escreval ("A area desse circulo é igual a ",area,".")
escreval ("****FIM****")
fimalgoritmo
Nenhum comentário:
Postar um comentário