algoritmo "calcular pinturas de cilindros")
var
totalL, qtdLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total : real
inicio
escreval("pintura de cilindros")
escreva ("digite a altura do cilindro ")
leia (h)
escreva ("digite o raio do cilindro ")
leia (r)
//calculando quantos metros quadrados tem o cilindro
areaBase <- 3.14 * r^2
areaLateral <- 2 * 3.14 * r * h
areaTotal <- areaLateral + (2 * areaBase)
// Area total /3 * 2 demãos de tinta
qtdLatas <- totalL /5
custoTotal <- qtdLatas * 40
escreval ("quantidade de latas de tinta po cilindros")
escreva ("valor total R$")
fimalgoritmo
Gostei!
ResponderExcluir