Informática, perguntado por lucasdejesus200, 11 meses atrás

A prefeitura de Salvador resolveu fazer uma pesquisa sobre algumas características físicas da sua população e coletou os seguintes dados, referentes a cada habitante, para ser analisados:
sexo (masculino, feminino);
cor dos olhos (pretos, verdes, castanhos);
cor dos cabelos (loiros, pretos, castanhos);
idade em anos.
Para cada habitante, foi preenchida uma ficha com os dados acima. Criar um algoritmo que determine e imprima:
a maior idade dos habitantes;
porcentagem de indivíduos do sexo feminino cuja idade esteja entre 18 e 35 anos, inclusive, e que tenha olhos verdes e cabelos louros

pleasee

Soluções para a tarefa

Respondido por mayaravieiraj
0

Oi!

Uma das possíveis maneiras de resolver esse exercício, levando em consideração  os dados fornecidos como sexo (masculino, feminino);  cor dos olhos (pretos, verdes, castanhos);  cor dos cabelos (loiros, pretos, castanhos);  idade em anos para cada habitante é a seguinte:


var

m,f : char ; // Sexo (M-masculino, F-Feminino)

a,v,c : char ; // Cor dos olhos (A-Azuis, V-Verdes, C-Castanhos)

l,cc,p : char ; // Cor dos cabelos (L-Louros,C-Castanhos,P-Pretos)

idade,maior_idade : integer ; // Idade

percentagem: real; // A percentagem de indivíduos do sexo feminino cuja idade está entre 18 e 35 anos inclusive e que tenham olhos verdes e cabelos louros.

i : integer ; // variavel de controle

Begin

for i:= 1 to 5 do

begin

maior_idade := 0 ;

writeln('_____________________________________________________________________________');

writeln ('Digite o sexo do habitante (M-masculino, F-Feminino)');

read(m,f);

writeln('Digite a cor dos olhos (A-Azuis, V-Verdes, C-Castanhos)');

read(a,v,c);

writeln('Digite a cor do cabelo (L-Louros,CC-Castanhos,P-Pretos)');

read(l,cc,p);

writeln('Digite a idade do habitante') ;

read(idade);

writeln('_____________________________________________________________________________') ;

end;

if idade > 0 then

writeln('A maior idade entre os habitantes é : ',idade);

End.


Perguntas interessantes