Boa tarde galera,
Estou desenvolvendo um código para essa problemática:
Faça um algoritmo que contabiliza os dados sobre o uso de tv por assinatura por parte de um grupo de pessoas.
Cada pessoa informou :
Nome (fim para encerrar)
Operadora : sky, claro, oi, net ou gvt.
Valor : em real
Receba esses dados via teclado e, ao final exiba :
A) qtd pesquisados
Qtd pessoas por operadora
C) total geral arrecadado
D) total arrecadado por operadora
E) média geral de pagamento
F) quantas pessoas gastam mais de 200 reais.
no item "F" estou tendo dificuldade pois, o contador esta repetindo a informação a cada loop, ou seja, se eu informar que foi gasto 200 com a operadora sky, por exemplo, e no proximo loop 150 com a operadora vivo, ele lê 2 pessoas com mais de 200 reais e não uma. alguém pode me ajudar ?
segue o código abaixo:
algoritmo "Operadoras de TV"
var
nome, operadora:caracter
carot, mediag, sky, claro, oi, net ,vivo, valors:real
valorc, valoro, valorn, valorv, qtd, totalg:real
soma1, soma2, soma3, soma4, soma5: real
caro1, caro2, caro3, caro4, caro5: real
inicio
escreval("Digite o seu nome")
leia(nome)
enquanto nome <> "fim" faca
escreval("Qual sua operadora de TV?")
escreval("Menu: sky, claro, oi, net ou vivo")
leia(operadora)
se operadora = "sky" então
escreval("Qual o valor da sua mensalidade Sky?")
escreva("R$: ")
leia(valors)
senao
se operadora = "claro" então
escreval("Qual o valor da sua mensalidade Claro?")
escreva("R$: ")
leia(valorc)
senao
se operadora = "oi" então
escreval("Qual o valor da sua mensalidade Oi?")
escreva("R$: ")
leia(valoro)
senao
se operadora = "net" então
escreval("Qual o valor da sua mensalidade Net?")
escreva("R$: ")
leia(valorn)
senao
se operadora = "vivo" então
escreval("Qual o valor da sua mensalidade Vivo?")
escreva("R$: ")
leia(valorv)
fimse
fimse
fimse
fimse
fimse
se operadora= "sky" então
soma1:= soma1 + valors
senao
se operadora= "claro" então
soma2:= soma2 + valorc
senao
se operadora= "oi" então
soma3:= soma3 + valoro
senao
se operadora= "net" então
soma4:= soma4 + valorn
senao
se operadora= "vivo" então
soma5:= soma5 + valorv
fimse
fimse
fimse
fimse
fimse
qtd:= qtd+1
totalg:= (soma1 + soma2 + soma3 + soma4 + soma5)
mediag:= totalg / 5
se operadora = "sky" então
sky:=sky+1
senao
se operadora = "claro" então
claro:=claro+1
senao
se operadora = "oi" então
oi:=oi+1
senao
se operadora = "net" então
net:=net+1
senao
se operadora = "vivo" então
vivo:=vivo+1
fimse
fimse
fimse
fimse
fimse
se valors >= "200" então
caro1:=caro1+1
fimse
se valorc >= "200" então
caro2:=caro2+1
fimse
se valoro >= "200" então
caro3:=caro3+1
fimse
se (valorn >= "200") então
caro4:=caro4+1
fimse
se (valorv >= "200") então
caro5:=caro5+1
fimse
carot:=(caro1+caro2+caro3+caro4+caro5)
escreval("Digite o seu nome")
leia(nome)
fimenquanto
escreval("")
escreval("Foram entrevistados",qtd," clientes ao total")
escreval("")
escreval(sky," da Sky,")
escreval(claro," da Claro,")
escreval(oi," da Oi,")
escreval(net," da Net,")
escreval(vivo," da Vivo,")
escreval("")
escreval("São gastos com operadoras de TV R$:",totalg," ao total")
escreval("")
escreval("R$:",soma1, " com a operadora Sky,")
escreval("R$:",soma2, " com a operadora Claro,")
escreval("R$:",soma3, " com a operadora Oi,")
escreval("R$:",soma4, " com a operadora Net,")
escreval("R$:",soma5, " com a operadora Vivo,")
escreval("")
escreval("A media geral gasta com operadoas de TV é R$:",mediag)
escreval("")
escreval(carot," clientes gastão 200 reais ou mais em suas mensalidades.")