Exercício 07 While - 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 while07 ;
var
 M_idade,n,cont,idade,cabelo,olhos,sexo: integer;
 percent: real;
 res: boolean;
 Begin
 cont := 0;
 res:= true;
 M_idade:= 0;
   While res do
    Begin 
     Writeln('1 --- Masculino');
     Writeln('2 --- Femenino');
     Write('Opcao: ');
     readln(sexo);
     
     Writeln('Cor dos Olhos');
     Writeln('1 ------ Azuis');
     Writeln('2 ------ Verdes');
     Writeln('3 ------ Castanhos');
     Write('Opcao: ');
     readln(olhos);
     
     Writeln('Cor dos Cabelos');
     Writeln('1 ------ Louros');
     Writeln('2 ------ Castanhos');
     Writeln('3 ------ Pretos');
     Write('Opcao: ');
     readln(cabelo);
     
      Write('Informe Idade: ');
      readln(idade);
      
       if (idade > M_idade) then 
      M_idade := idade;
       if (idade>18) and (idade<35) and (olhos=2) and (cabelo=1) and (sexo=2) then
        percent := percent + 1;
       cont := cont + 1 ;
      Write('Sair Digite 0 senao digite 1: ');
     readln(n); 
      if (n = 0) then res:= false
      else res:= true; 
     clrscr;          
    end;   
  Writeln('Maior Idade: ',M_idade);
  Writeln('Percentual: ',percent/cont:0:2);        
  Writeln('                       by Marcus Vinicius');
 End.

Categories: Pascal , Programação