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