Exercício Kwh - lógica de programação

Prévia do material em texto

1. (Livro de Farrer – pág 59-I 12.13) Deseja-se fazer uma pesquisa a respeito do consumo mensal 
de
energia elétrica em uma determinada cidade. Para isso, são fornecidos os seguintes dados:
Preço em Kwh consumido
Número do consumidor
Quantidade de Kwh consumidos durante o mês
Código do tipo de consumidor (R=Residencial, C=Comercial, I=Industrial)
O número do consumidor igual a 0 (zero) deve ser assumido como Flag. Fazer um algoritmo que:
Leia os dados escritos a cima
Calcule e imprima
 Para cada consumidor: o total a pagar
 O maior consumo verificado
 O total do consumo para cada uma dos três consumidores
 A média geral do consumo
algoritmo "Preço Kwh"
// Função :
// Autor : Fabricio
// Data : 25/4/2015
// Seção de Declarações
var
precokwh, quantidadekwhM ,maior: real
residenciaT, comercialT, industrialT,mediaGeral : real
codigoConsumidor: inteiro
tipoConsumidor : caractere
inicio
// Seção de Comandos
maior <- 0
repita
 escreval("--------------------------------------------------")
 escreval("SISTEMA DE CALCULO DE CONSUMO DE ENERGIA ELÉTRICA ")
 escreval("--------------------------------------------------")
 escreval(" ")
 escreva("Preço em Kwh consumido : ")
 leia(precokwh)
 escreva("Número do consumidor : ")
 leia(codigoConsumidor)
 escreva("quantidade de Kwh consumido durante o mês : ")
 leia(quantidadekwhM)
 escreva("Código do tipo de consumidor (R=Residencial, C=Comercial, I=Industria) : ")
 leia(tipoConsumidor)
 se (quantidadekwhM > maior) entao
 maior <- quantidadekwhM
 fimse
 se (tipoConsumidor = "R") entao
 quantidadekwhM <- precokwh*quantidadekwhM
 residenciaT <- residenciaT + quantidadekwhM
 escreval("Consumidor, tipo Residencial. Você pagará : ",quantidadekwhM)
 escreval("--------------------------------------------------")
 escreval(" ")
 senao
 se (tipoConsumidor = "C") entao
 quantidadekwhM <- precokwh*quantidadekwhM
 comercialT <- comercialT + quantidadekwhM
 escreval("Consumidor, tipo Comercial. Você pagará : ",quantidadekwhM)
 escreval("--------------------------------------------------")
 escreval(" ")
 senao
 se (tipoConsumidor = "I") entao
 quantidadekwhM <- precokwh*quantidadekwhM
 industrialT <- industrialT + quantidadekwhM
 escreval("Consumidor, tipo Industrial. Você pagará : ",quantidadekwhM)
 escreval("--------------------------------------------------")
 escreval(" ")
 fimse
 fimse
 fimse
ate (codigoConsumidor = 0)
mediaGeral <- (residenciaT+comercialT+industrialT)/3
escreval("--------------------------------------------------")
escreval(" CÁLCULO ")
escreval("--------------------------------------------------")
escreval(" ")
escreval("O maior consumo verificado : ",maior)
escreval("Total consumido por residenciais : ",residenciaT)
escreval("Total consumido por comerciais : ",comercialT)
escreval("Total consumido por industriais : ",industrialT)
escreval("A média geral do consumo : ",mediaGeral)
escreval(" ")
escreval("--------------------------------------------------")
fimalgoritmo