algoritmo "ex03_repREF"
// Renato ex03_repeticaoREFORÇO

var
entrada: inteiro
base, altura: real

inicio

repita

escreval("Digite qual forma você quer calcular:")
escreval("1 - área de um triângulo")
escreval("2 - área de um círculo")
escreval("3 - área de um cubo")
escreval("4 - área de um cilindro")
leia(entrada)

escolha(entrada)

caso(1)
       escreval("Digite a base")
       leia(base)
       escreval("Digite a altura")
       leia(altura)
       escreval("Área do triângulo: ", (base*altura)/2)

caso(2)
       escreval("Digite o raio")
       leia(base)
       escreval("Área do círculo: ", (base*base*Pi))
       caso(3)
       escreval("Digite a medida da aresta")
       leia(base)
       escreval("Área do cubo: ", (6*(base*base)))

caso(4)
       escreval("Digite o raio")
       leia(base)
       escreval("Digite a altura")
       leia(altura)
escreval("Área do cilindro: ", ((2*(Pi)*(base)*(altura))+((Pi)*(base*base))))

outrocaso
         escreval("Entrada inválida!")

fimescolha

escreval("Continuar? 1 para sim, 0 para não")
leia(entrada)

se(entrada)=(0) entao
                interrompa
fimse

ate 0=1

escreval("Operação finalizada pelo usuário.")
fimalgoritmo