Ir ao conteúdo
  • Cadastre-se

Problema geral utilizando a linguagem pascal no programa Pascalzim


Posts recomendados

Olá,boa noite!

Sou iniciante em programação,estou na faculdade e a gente está aprendendo a programar pelo pascal,eu gostaria de saber como calcular "a média",estou tentando resolver o seguinte problema:

 

 

  • Fazer um programa que:

  • Leia um número indeterminado de linhas contendo cada uma a idade de um indivíduo.

  • A Ultima linha, que não entrará nos cálculos, contém o valor da idade igual a zero;

  • . Calcule e Escreva a idade média deste grupo de indivíduos

     

 

Então comecei a fazer o programa e até então tava indo tudo bem(Pelo menos é o que eu acho),sendo que quando executei apareceu a média normalmente,mas não ficou de acordo com o que é solicitado,acredito que é por que formulei a média errado,então,gostaria de saber se alguém poderia me ajudar a resolver esse problema,veja:

Program Exercicio1;var Idade : Integer;    Quantidade_individuo : Integer;    media : real;    soma : real;Begin    Soma := 0;    Quantidade_individuo :=0;    Write (' Informe a sua idade: ');Read (Idade);Soma := soma+idade;Quantidade_individuo := Quantidade_individuo+1;Media := Soma/Quantidade_individuo;Writeln(' A Idade media é:',media);End.          
Link para o comentário
Compartilhar em outros sites

Program Exercicio1;var Idade : Integer;    Quantidade_individuo : Integer;    media : real;    soma : real;Begin    Soma := 0;    Quantidade_individuo :=0;Repeat     Write (' Informe a sua idade: ');Read (Idade);Soma := soma+idade;Quantidade_individuo := Quantidade_individuo+1;Media := Soma/Quantidade_individuo;Writeln(' A Idade media é:',media); Until idade = 0End.  

 

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------O Repeat /until é uma estrura de repeticção que faz com que o código entre o "Repeat" e o "Until seja repetido, o programa quando chegar à linha do Repeat só vai sair de esse ciclo quando a condição do Until se confirmar, para melhor compreensão Repeat significa "repetir" e Until significa "até", ou seja, Repetir o que está dentro daquele espaço até a idade introduzida seja 0

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...