Algoritmo a respeito do consumo mensal de energia elétrica

[dr.bre®®]

preciso desse algorítimo urgente.... que contenhaa os comando mais simples possíveis..

Deseja 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 do KWh consumido;

*número do consumidor;

*quantidad de kWh consumido durante o mês;

*código do tipo de consumidor (residencial, comercial, industrial)

O número do consumidor igual a a zero deve ser usado como flag. Fazer um algorítimo que:

*leias os dados escritos acima;

*calcule;

A- para cada consumidor o total a pagar;

B- o mairo consumo verificado;

C- o menor consumo verificado;

D- o total do consumo para cada um dos três tipos de consumidores;

E- a média geral do consumo;

*escreva:

A- para cada consumidor, o seu número e o total a pagar,

B- o que foi calculado nos ítens b,c,d acima especificados..

eu gostaria que fossem com os comando mais simples. não um algorítimo avançado..

e eu preciso pra no mais tardar 5 horas da manhã de terça-feira(amanhã)

eu agradeceria muito se alguém ajudasse.

agradeçido..

[Paulo_elite]

Não é bem o que você está procurando, mais preciso fazer você pensar um pouco...

Não posso postar a resposta mastigada pra você...

Eis aqui um exeplo de quase o que você precisa, so que esse sistema alcula contas de energia, mais ele também exclui aqueles clientes isentos, plano do gorverno de pessoas carentes....

Acho que dá pra você tiar uma ótima base!!!

Program CONSUMODEENERGIA;
Var
Cod, Quantidadekw:integer;
valor,Precokw:real; 
N:char;
BEGIN
 N:='S';
 while (n='S') or (n='s') do
   begin
      writeln('               SISTEMA DE CALCULO DE CONSUMO DE ENERGIA ELÉTRICA');
     writeln('________________________________________________________________________________');
     writeln;
      writeln('Digite o código do consumidor: ');
      readln(Cod);
      writeln('Informe o preço do kw: ');
      readln(PrecokW);
      writeln('Insira a quantidade de kw consumida pelo consumidor: ');
      readln(QuantidadeKw);

         valor:= (Precokw * Quantidadekw);
  
      If (valor < 11.20) then
        begin
           writeln;
           writeln;
           writeln('--------------------------------------------------------------------------------'); 
           writeln('Código do Consumidor: ',cod);
           writeln('Valor do Kw: R$ ',Precokw:5:2);
           writeln('Total de kw consumido pelo consumidor: ',Quantidadekw);
           writeln('Calculo de Tarifa: R$ ', valor:5:2);
          writeln; 
           writeln('Situação: CONSUMIDOR ISENTO');
           writeln;
           writeln;
           writeln;
           writeln('VALOR A PAGAR: R$ 0,00');
        end
     Else
        begin
           writeln;
           writeln;
           writeln('--------------------------------------------------------------------------------');
           writeln('Código do Consumidor: ',cod);
           writeln('Valor do Kw: R$ ',Precokw:5:2);
           writeln('Total de kw consumido pelo consumidor: ',Quantidadekw);
           writeln;
           writeln;
           writeln;
           writeln('VALOR A PAGAR: R$ ', valor:5:2);
       end;
           writeln;
          writeln('--------------------------------------------------------------------------------');
         writeln;          
           writeln('Deseja calcular outra conta? (s/n)');
           readln(n);
             if (n='n') or (n='N') then
                begin
                   writeln;
                   writeln; 
                   writeln('                        Saindo do sistema...');
                   writeln('                     Sistema sendo encerrado...');
                   writeln;
                   writeln;
                   writeln('                       SISTEMA ENCERRRADO!!!');
                end;
   end;
End.

[Guest CDC]

ALGUÉM ME AJUDA

DESEJÁ- SE FAZER UMA PESQUISA A RESPEITO DO CONSUMO DE ENERGIA ELÉTRICA EM UMA DETERMINADA CIDADE. PARA ISSO DEVE SER LIDO UM VETOR COM 12 ELEMENTOS REAIS, ONDE CADA ELEMENTO REPRESENTA O CONSUMO EM KWH DE UM MÊS DO ANO.

CALCULAR E ESCREVER OS SEGUINTES RESULTADOS:

O MENOR E OMAIOR CONSUMO RESIDENCIAL E O MÊS QUE OCORREU

A MÉDIA DO CONSUMO RESIDENCIAL NOS MESES DE VERÃO(1,2,12) E NOS MESES DE INVERNO(6,7,8).

CONSIDERE UM TOTAL DE 100 MORADORES PARA A PESQUISA.

[Guest EDUARDO RAPOSO]

VOCÊ PODE PROCURAR NA UFRJ TESES DE DOUTORADO.

MINHA PROFESSORA FEZ UMA ANÄLISE DE DEA DAS CONCESSIONÁRIAS EFICIENTES E DAS INEFICIENTES.

[Guest DjWebSP]

ALGUÉM ME AJUDA

DESEJÁ- SE FAZER UMA PESQUISA A RESPEITO DO CONSUMO DE ENERGIA ELÉTRICA EM UMA DETERMINADA CIDADE. PARA ISSO DEVE SER LIDO UM VETOR COM 12 ELEMENTOS REAIS, ONDE CADA ELEMENTO REPRESENTA O CONSUMO EM KWH DE UM MÊS DO ANO.

CALCULAR E ESCREVER OS SEGUINTES RESULTADOS:

O MENOR E OMAIOR CONSUMO RESIDENCIAL E O MÊS QUE OCORREU

A MÉDIA DO CONSUMO RESIDENCIAL NOS MESES DE VERÃO(1,2,12) E NOS MESES DE INVERNO(6,7,8).

CONSIDERE UM TOTAL DE 100 MORADORES PARA A PESQUISA.

Não sei bem se é isso que precisa:

Mes = 1

ConsumoMenor = 0

MesConsumoMenor = 999999999999999999999999

ConsumoMaior = 0

MesConsumoMaior = 0

ConsumoVerao = 0

ConsumoInverno = 0

NumeroMoradores = 100

[iNICIO] FAÇA ENQUANTO Mes <= 12

SE Consumo[Mes]<ConsumoMenor

ConsumoMenor = Consumo[Mes]

MesConsumoMenor = Mes

SE Consumo[Mes]>ConsumoMaior

ConsumoMaior = Consumo[Mes]

MesConsumoMaior = Mes

SE Mes=1 OU Mes=2 OU Mes=12

ConsumoVerao = ConsumoVerao + Consumo[Mes]

SE Mes=6 OU Mes=7 OU Mes=8

ConsumoInverno = ConsumoInverno + Consumo[Mes]

ADICIONA 1 ao Mes

VOLTA AO [iNICIO]

Imprime MesConsumoMenor e ConsumoMenor

Imprime MesConsumoMaior e ConsumoMaior

Imprime ConsumoVerao/NumeroMoradores

Imprime ConsumoInverno/NumeroMoradores

[blacksaint]

Poxa eu juro que tentei mas dá erro de sintaxe... onde eu errei?

algoritmo "consumo mensal energia eletrica"
// Função :
// Autor :
// Data : 21/4/2011
// Seção de Declarações 
var
precokwh, quantkwhMensal, quantkwhDia, maior, menor:real
restotal, comtotal, indtotal, mediageral:real
numcons, CodTc, cont:inteiro
inicio
// Seção de Comandos
//numero do consumidor for igual 0 flag de saída
cont<- 1
numcons<- 1
restotal<- 0
comtotal<- 0
indtotal<- 0
repita
escreva("Digite o preço de KWH consumidos durante o mês: ")
leia(precokwh)
escreva("Digite o numero do consumidor: ")
leia(numcons)
escreva("Digite a quantidade de KWH consumidos durante o mês: ")
leia(quantkwhMensal)
escreval("Digite que tipo de consumidor: ")
escreva("1 para Residencial, 2 para Comercial e 3 para industrial): ")
leia(CodTc)
//a)Para cada consumidor, o total a pagar;
//B) o maior consumo verificado
//c) O menor consumo verificado
//d) O total de consumo para cada um dos três tipos de consumidores
//e) A média geral de consumo
se(quantkwhmensal > quantkwhmensal)então
maior<- quantkwhmensal
fimse
se(quantkwhmensal < quantkwhmensal)então
menor<- quantkwmensal
fimse
cont<- cont+1
se(codtc = "1")então
quantkwhMensal<- precokwh*quantkwhDia
restotal<- restotal+quantkhwmensal
escreva("Consumidor", codtc," pagará no total:R$ ", quantkwhmensal)
fimse
se(codtc = "2")então
quantkwhMensal<- precokwh*quantkwhDia
comtotal<- comtotal+quantkwhmensal
escreva("Consumidor", codtc," pagará no total:R$ ", quantkwhmensal)
fimse
se(codtc = "3")então
quantkwhMensal<- precokwh*quantkwhDia
indtotal<- indtotal+quantkwhdia
escreva("Consumidor", codtc," pagará no total:R$ ", quantkwhmensal)
fimse
ate (numcons = 0)
mediageral<- (restotal+comtotal+indtotal)/3
escreva("Maior consumo foi: ", maior)
escreva("Menor consumo foi: ", menor)
escreva("Total consumido por residenciais: ", restotal)
escreva("Total consumido por comerciais: ", comtotal)
escreva("Total consumido por industriais: ", indtotal)
escreva("A média geral de consumo é: ", mediageral)
fimalgoritmo

[eletrikusbra]

Legal Paulo vou ver se adpatado no meu programa. valeu!

---------------------

Eletrikus Brasiliensis