Exercício 07 Repeat - Pascal

7) Uma pesquisa sobre algumas características físicas da população de uma determinada região
coletou os seguintes dados, referentes a cada habitante, para serem analisados:

 Sexo (masculino, feminino)
 Cor dos olhos (azuis, verdes, castanhos)
 Cor dos cabelos (louros, castanhos, pretos)
 Idade
Fazer um algoritmo que determine e escreva:
a) A maior idade dos habitantes.
b) A porcentagem de indivíduos do sexo feminino cuja idade entre 18 e 35 anos inclusive e que
tenham olhos verdes e cabelos louros.

Program repeat07;
var
cont,olh_ver,cab_lou,cabelo,olho,m_idade,idade:integer;
sair,sexo:char;
percent:real;
Begin
cont:=0;
percent:=0;
m_idade:= -1;
sair:='n';
  repeat
    Write('Iforme Sexo f/m: ');
    readln(sexo);
    Writeln('Cor Olhos');
    Writeln('Azul     ---- 1');
    Writeln('Verde    ---- 2');
    Writeln('Castanho ---- 3');
    Write('Opcao: ');
    readln(olho); Writeln;
    Writeln('Cor Olhos');
    Writeln('Louro    ---- 1');
    Writeln('Castanho ---- 2');
    Writeln('Preto    ---- 3');
    Write('Opcao: ');
    readln(cabelo); Writeln;
    Write('Idade: ');
    readln(idade); writeln;
    Write('Sair s/n: ');
    readln(sair);
    cont:= cont + 1;
            if idade > m_idade then
                m_idade:= idade;
            if (sexo='f') and (idade>=18) and (idade<=35) and (olho=2) and (cabelo=1) then
                    percent:=percent+1;
  until (sair='s');                      
  Writeln('Maior Idade: ',m_idade);
  Writeln('A porcentagem de indivíduos do sexo feminino cuja idade entre 18 e 35 anos inclusive e que tenham olhos verdes e cabelos louros: ',percent*100/cont:0:0,' %');
  
End.

Categories: Pascal , Programação