program CadastroFuncionarios;
 
var
matricula: integer;
idade: integer;
sexo: char;
altura: double;
concursado: char;
contConcursada: integer = 0;
contFuncionarioHomens: integer = 0;
homemMaisVelho: integer = 0;
qtdMulheresMaisTrintaAnosSemConcurso: integer = 0;
qtdConcursados: integer = 0;
mediaAlturaHomensMenos40Anos: Double;
contHomensMenos40Anos: integer = 0;
SomaAlturaHomensMenos40Anos: double = 0;
begin
WriteLn(Utf8ToAnsi('Programa Cadastro de funcionários - Show Delphi'));
WriteLn('');
WriteLn(Utf8ToAnsi('Para parar de cadastrar, informe 0 na matrícula.'));
WriteLn('');
WriteLn('');
 
repeat
Write(Utf8ToAnsi('Informe a matrícula: '));
ReadLn(matricula);
 
if matricula > 0 then
begin
Write('Informe a idade: ');
ReadLn(idade);
 
Write('Informe o sexo: ');
ReadLn(sexo);
sexo := upcase(sexo);
 
Write('Informe a altura: ');
ReadLn(altura);
 
Write(Utf8ToAnsi('É concursado?: '));
ReadLn(concursado);
concursado := upcase(concursado);
 
// a) o número de funcionárias concursadas;
if (sexo = 'F') and (concursado = 'S') then
begin
contConcursada := contConcursada + 1;
end;
 
// b) o número de funcionários (somente homens);
if (sexo = 'M') then
begin
contFuncionarioHomens := contFuncionarioHomens + 1;
 
if idade > homemMaisVelho then
begin
// c) a maior idade dos homens concursados;
homemMaisVelho := idade;
end;
 
// contando os homens com menos de 40 anos e somando a altura para calcular a média
// f) a média das alturas dos homens com menos de 40 anos.
if idade < 40 then
begin
SomaAlturaHomensMenos40Anos:= SomaAlturaHomensMenos40Anos + altura;
contHomensMenos40Anos := contHomensMenos40Anos + 1;
end;
end;
 
// d) a quantidade de mulheres com mais de 30 anos sem concurso;
if (sexo = 'F') and (concursado = 'N') and (idade > 30) then
begin
qtdMulheresMaisTrintaAnosSemConcurso := qtdMulheresMaisTrintaAnosSemConcurso + 1;
end;
 
// e) a quantidade de concursados(as);
if (concursado = 'S') then
begin
qtdConcursados := qtdConcursados + 1;
end;
end;
 
WriteLn('------');
until (matricula = 0);
 
// f) a média das alturas dos homens com menos de 40 anos. Calculando Média
mediaAlturaHomensMenos40Anos := 0;
if contHomensMenos40Anos > 0 then
begin
{ teste para evitar divisão por zero. }
mediaAlturaHomensMenos40Anos:= SomaAlturaHomensMenos40Anos / contHomensMenos40Anos;
end;
 
WriteLn('');
WriteLn(Utf8ToAnsi('Relatório'));
WriteLn('');
 
WriteLn(Utf8ToAnsi('O número de funcionárias concursadas é: '), contConcursada);
WriteLn(Utf8ToAnsi('O número de funcionários (somente homens) é: '), contFuncionarioHomens);
WriteLn(Utf8ToAnsi('A maior idade dos homens concursados é: '), homemMaisVelho);
WriteLn(Utf8ToAnsi('A quantidade de mulheres com mais de 30 anos sem concurso é: '), qtdMulheresMaisTrintaAnosSemConcurso);
WriteLn(Utf8ToAnsi('A quantidade de concursados(as) é: '), qtdConcursados);
WriteLn(Utf8ToAnsi('A média das alturas dos homens com menos de 40 anos é: '), mediaAlturaHomensMenos40Anos :0:2);
 
WriteLn('');
WriteLn('Enter para fechar o programa');
ReadLn;
end.