Exercicio 02 Prova 03 - TP

02 - 02 - Criar um programa que receba idade e sexo, até que a idade seja igual a 0.

Mostrar na tela:
- Média de idade do grupo
- Maior idade entre o grupo masculino
- Maior idade entre o grupo feminino
- Percentual de individuos do sexo maculino
- Percentual de individuos do sexo feminino
- Total de Pessoas informadas

program prova03ex02;
uses crt;

var idade,mmasc,mfem,total,idt,masc:byte;
sexo:char;
mdgrupo,pcfem,pcmasc:real;
begin
clrscr;
write('Idade....: ');
readln(idade);
mmasc:=0;
mfem:=0;
while idade <>0 do
begin
write('sexo (M/F).: ');
readln(sexo);
sexo:=upcase(sexo);
while (sexo<>'M')and (sexo <>'F') do
begin
write('Sexo invalido! Redigite....: ');
readln(sexo);
sexo:=upcase(sexo);
end;
inc(total,1);
inc(idt,idade);
case sexo of
'M': begin
if idade>mmasc then
mmasc:=idade;
inc(masc,1);
end;
'F': begin
if idade>mfem then
mfem:=idade;
end;
end;
write('Idade....: ');
readln(idade);
end;
mdgrupo:=idt/total;
pcfem:=((total-masc)/total)*100;
pcmasc:=masc/total*100;
writeln;
writeln('Media Idade Grupo...................: ',mdgrupo:5:2);
writeln;
writeln('Maior idade entre o grupo masculino.: ',mmasc);
writeln;
writeln('Maior Idade entre o grupo feminino..: ',mfem);
writeln;
writeln('Percentual de individuos do sexo "M": ',pcmasc:5:2,' %');
writeln;
writeln('Percentual de individuos do sexo "F": ',pcfem:5:2,' %');
writeln;
writeln('Total de Pessoas Informadas.........: ',total);
readln;
end.