algoritmo "Cálculo da quantidade de lata de tinta necessária"
var
h,r,areat,qt,lata,qtdet,pt:real
inicio
escreval("Cálculo da quantia necessária de tinta para pintar tanques cilíndricos")
escreva("Digite quanto tanque sera pintado")
leia(qt)
escreva("Digite a altura correspondente do tanque em metros ")
leia(h)
escreva("Digite o raio correspondente do tanque em metros ")
leia(r)
areat <- (2*3.14*r*h) + (2*3.14*r^2)
escreval("A área correspondente a um tanque é ",areat," metros.")
lata <- (areat*qt)*2/15
pt <- lata*40
escreval("Será necessário ",lata:5:2," lata(s) de tinta, para pintar os tanques.")
escreval("O preço total da tinta é de R$",pt:5:2,".")
escreval("*** F I M ***")
fimalgoritmo
Nenhum comentário:
Postar um comentário