Quinto desafio semanal

Algoritmo "Calculo do tamanha da caixa d'agua"

// Disciplina  :  Algoritmo

// Professor   :  Tarcisio Lopes

// Descrição   : Algoritmo para calcular o tamanho da caixa d'agua levando em consideração quantas pessoas ocupam a casa ou o apartamento

// Autor(a)    : João Pedro, Mikaele Larissa, Thiago Souza, Laércio Junior, Marcos Vinícios e João Gabriel

// Data atual  : 19/09/2018

Var

// Seção de Declarações das variáveis

descricao: vetor[1..5] de caractere

valor: vetor[1..5] de real

i, QTP, CD: inteiro

opcao, imovel: caractere

Inicio

// Seção de Comandos, procedimento, funções, operadores, etc...

para i de 1 ate 5 faca

   escreval("Descreva a caixa d'agua: ")

   leia(descricao[i])

   escreval("Quanto custa? ")

   leia(valor[i])

fimpara

para i de 1 ate 5 faca

   escreval(descricao[i])

   escreval(valor[i])

fimpara

opcao<-"S"

enquanto (opcao="s") faca

   escreval("Calculo da caixa d'agua, quantos habitantes?")

   leia(QTP)

   escreval("Casa ou apto?")

   leia(imovel)

   se (imovel="casa") entao

      CD<-QTP*150*2

   fimse

   se (imovel="apto") entao

      CD<-QTP*200*2

   fimse

   escreval("A estimativa do consumo de agua  eh: ", CD)

   se (CD <= 310) entao

      escreval("Comprar caixa d'agua de 310L")

   fimse

   se (CD > 310) e (CD <= 500) entao

      escreval("Comprar caixa d'agua de 500L")

   fimse

   se (CD > 500) e (CD <= 1000) entao

      escreval("Comprar caixa d'agua de 1000L")

   fimse

   se (CD > 1000) e (CD <= 1500) entao

      escreval("Comprar caixa d'agua de 1500L")

   fimse

   se (CD > 1500) e (CD <= 4000) entao

      escreval("Comprar caixa d'agua de 4000L")

   fimse

   escreval("Deseja calcular novamente? <S-Sim> <N-Não>")

   leia(opcao)

fimenquanto

Fimalgoritmo