Eu estou com um problema para descobrir a média de filhos que as pessoas da cidade tem, já quebrei a cabeça e não vejo a solução, vou postar o código e se alguém puder ajudar agradeço. Mas basicamente eu quero ver a média de filhos que as pessoas dessa cidade tem, e mostrar essa média, eu tentei ir calculando enquanto fosse colocando os resultados mas a conta sempre da errado.
Algoritmo "pequena_cidadde"
Var
Total_Pessoas, Cont: Inteiro
Salario, Maior_Salario, Media_Filhos, Filhos: Real
Pessoa, Pessoa_Rica: Caractere
Inicio
Escreva("Quantas pessoas existem na cidade: ")
Leia(Total_Pessoas)
Media_Filhos <- 0
Cont <- 1
Maior_Salario <- 0
Enquanto (Cont <= Total_Pessoas) faca
Escreva("Nome da", Cont,"o. pessoa? ")
Leia(Pessoa)
Escreva(Cont,".o Qual seu salário? R$")
Leia(Salario)
Escreva(Cont,".o Numero de filhos? ")
Leia(Filhos)
Cont <- Cont + 1
Media_Filhos <- (Filhos + Filhos) / Cont -------------- OBS: essa linha aqui eu queria arrumar, a média de filhos das pessoas da cidade.
Se (Salario > Maior_Salario) então
Maior_Salario <- Salario
Pessoa_Rica <- Pessoa
FimSe
FimEnquanto
Escreval("A média de filhos é ", Media_Filhos)
Escreval("O maior salario é R$", Maior_Salario," de ", Pessoa_Rica)
Fimalgoritmo
Pergunta
Rhyan Fischer
Eae gente, bom?
Eu estou com um problema para descobrir a média de filhos que as pessoas da cidade tem, já quebrei a cabeça e não vejo a solução, vou postar o código e se alguém puder ajudar agradeço. Mas basicamente eu quero ver a média de filhos que as pessoas dessa cidade tem, e mostrar essa média, eu tentei ir calculando enquanto fosse colocando os resultados mas a conta sempre da errado.
Algoritmo "pequena_cidadde"
Var
Total_Pessoas, Cont: Inteiro
Salario, Maior_Salario, Media_Filhos, Filhos: Real
Pessoa, Pessoa_Rica: Caractere
Inicio
Escreva("Quantas pessoas existem na cidade: ")
Leia(Total_Pessoas)
Media_Filhos <- 0
Cont <- 1
Maior_Salario <- 0
Enquanto (Cont <= Total_Pessoas) faca
Escreva("Nome da", Cont,"o. pessoa? ")
Leia(Pessoa)
Escreva(Cont,".o Qual seu salário? R$")
Leia(Salario)
Escreva(Cont,".o Numero de filhos? ")
Leia(Filhos)
Cont <- Cont + 1
Media_Filhos <- (Filhos + Filhos) / Cont -------------- OBS: essa linha aqui eu queria arrumar, a média de filhos das pessoas da cidade.
Se (Salario > Maior_Salario) então
Maior_Salario <- Salario
Pessoa_Rica <- Pessoa
FimSe
FimEnquanto
Escreval("A média de filhos é ", Media_Filhos)
Escreval("O maior salario é R$", Maior_Salario," de ", Pessoa_Rica)
Fimalgoritmo
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.