sexta-feira, 28 de janeiro de 2011

{Escrever um programa que leia um conjunto de 10 informacoes contendo,
cada uma delas, a altura e o sexo de uma pessoas (codigo = 1, Masculino;
codigo = 2, feminino), calcule e mostre o seguinte:
a) A maior e a menor altura da turma;
b) A media da altura das mulheres;
c) A media da altura da turma.}

Uses CRT;
Var  Cont, Sexo, QtdM: Integer;
     Altura, MaAlt, MeAlt, MedAltM, MedAltT: Real;

Begin
    Cont := 1;
    Clrscr;
    While Cont <=  10  Do
          Begin
              Writeln('Digite a altura: ');
              Read(Altura);
              MedAltT := MedAltT + Altura;
              If Cont = 1 Then
                 Begin
                     MaAlt := Altura;
                     MeAlt := Altura;
                 End;
              If Altura > MaAlt Then
                 MaAlt := Altura;
              If Altura < MeAlt Then
                 MeAlt := Altura;
              Writeln('Digite o sexo (Cod: 1 - Homem, Cod: 2 - Mulher): ');
              Read(Sexo);
              If (Sexo = 2) Then
                 Begin
                     MedAltM := MedAltM + Altura;
                     QtdM   := QtdM + 1;
                 End;
              Cont := Cont + 1;
          End;
    Writeln('Maior Altura da Turma ‚ ', MaAlt:10:2);
    Writeln('Menor Altura da Turma ‚ ', MeAlt:10:2);
    Writeln('M‚dia Altura das Mulheres ‚ ', (MedAltM/QtdM):10:2);
    Writeln('M‚dia da Altura da Turma ‚ ', (MedAltT/Cont):10:2);
    Readkey;
End.

Nenhum comentário:

Postar um comentário