Pascal/Delphi Exercícios usando estruturas de repetição

[AllanMichel18]

Olá, eu faço curso técnico de informática e recentemente nas aulas de lógica de programação, usando Pascal, acabei ficando preso em um exercício  exercício:

 

Construa  um algoritmo que leia e imprima a altura de 500 pessoas uma a uma e no final escreva a média.

 

Isso foi o que eu fiz, mas o problema é que não sei como calcular a media.

Program altura_500 ;
var
altura : real ;
cont : integer ;
Begin
  cont := 1 ;
  while cont<= 500 do
  begin
    write('usuário ',cont,' digite sua altura: ');
    read(altura);
    cont := cont+1 ;
  end;  
End.

 

[Ricardov]

Olá. Você tem que somar todas alturas em uma varíavel e ao final dividir o valor dessa soma por 500 (supondo média aritmética). Para facilitar os teste comece com 3 pessoas apenas.

[Simon Viegas]

Olá.

 

1#

Sobre o código, apenas pequenos sugestões de ajustes:

program altura_500;
var
  altura :real;
  cont   :integer ;
begin
cont:=1;
{while cont<= 500 do} //na fase de desenvolvimento e testes, diminua a quantidade
while cont<= 3 do
  begin
  write('Usuário ',cont,' digite sua altura: ');
  {read(altura);} //não use read(), use apenas readln()
  readln(altura);
  cont:=cont+1;
  end;
end.

 

 

2#

Sobre:

5 horas atrás, AllanMichel18 disse:

Isso foi o que eu fiz, mas o problema é que não sei como calcular a media.

 

Pesquise sobre o tema. Veja, você precisa saber calcular uma média no mundo real... o Pascal será apenas uma ferramenta que vai automatizar o processo.

 

Pegue 3 alturas, e calcule a média papel. Após, entenda o processo e "traduza" para o Pascal.

 

 

***

 

Qualquer dúvida é só perguntar.

 

No aguardo.

 

 

 

 

 

 

 

[AllanMichel18]

na verdade o problema é que eu não sei como incluir a media no pascal de forma fácil,

claramente eu sei fazer uma media aritimetica

ex:media := (n1+n2+n3)/3 ;

mas eu quero saber como calcular a media de 500 valores no pascal.

[Simon Viegas]

12 horas atrás, AllanMichel18 disse:

na verdade o problema é que eu não sei como incluir a media no pascal de forma fácil,

claramente eu sei fazer uma media aritimetica

ex:media := (n1+n2+n3)/3 ;

mas eu quero saber como calcular a media de 500 valores no pascal.

 

Existem vários tipos de médias... mas vamos supor que seja a média aritmética simples. Desta forma a média seria algo como:

"Média aritmética simples" =  "soma das observações" / "número de observações"

Em outras palavras:

media = soma / total

 

Então, no contexto do seu código, o "total" estaria na variável cont. Já a "soma", poderia criar uma nova variável para "ir acumulando a soma das idades". Algo como:

somaAlturas := somaAlturas+altura;

 

 

Obs.:  lembre da dica:

13 horas atrás, Simon Viegas disse:

{while cont<= 500 do} //na fase de desenvolvimento e testes, diminua a quantidade

 

 

 

 

No aguardo.