//Faça um algoritmo para ler o nome, sexo ("M" =Masculino e "F"=Feminino), três notas e o número
//de faltas dos alunos de uma turma, onde o Flag será um nome igual a "fim" e escrever:
//a. A média e a situação final de cada aluno;
//b. A média das notas dos homens e a média das notas das mulheres;
//c. O percentual de homem e o percentual de mulheres reprovados;
//d. O percentual geral de reprovação da turma
program SexoNotasFaltasFlagFim;
uses crt;
type
escola=record
nome:string;
sexo:char;
nota1,nota2,nota3,media:real;
falta:integer;
sit:string;
end;
var
aluno:array[1..1000]of escola;
flag:string;
i,j,q:integer;
somah,somaM,media,qmr,qhr:real;
begin
writeln(' ------ Uma turma escolar -------');
writeln('media: 5.0 falta:27 ');
flag:='naofim';
i:=0;
while (flag <> 'fim') do
begin
i:=i+1;
writeln('_____________ ALUNO ',i,' _____________');
writeln('==> Informe "fim" ou o NOME do aluno:');
readln(aluno[i].nome);
flag:=aluno[i].nome;
if flag<>'fim' then
begin
writeln('==> Informe o sexo do aluno M ou F:');
repeat
aluno[i].sexo:=readkey;
until (aluno[i].sexo = 'M') or (aluno[i].sexo='F') or (aluno[i].sexo = 'm') or (aluno[i].sexo='f');
writeln('==> Informe as 3 notas do aluno:');
readln(aluno[i].nota1,aluno[i].nota2,aluno[i].nota3);
writeln('==> Informe o numero de faltas do aluno:');
readln(aluno[i].falta);
end;
end;
//a. A média e a situação final de cada aluno;
if (i>1) then
begin
clrscr;
writeln(' ------------ A media e a situacao final de cada aluno -----------');
for j:=1 to i-1 do
begin
aluno[j].media:=(aluno[j].nota1 + aluno[j].nota2 + aluno[j].nota3)/3;
if (aluno[j].media>= 5) and (aluno[j].falta<=27) then
begin
aluno[j].sit:='AP';
end else begin
if (aluno[j].media>= 5) and (aluno[j].falta>27) then
begin
aluno[j].sit:='RF';
end else begin
aluno[j].sit:='RM';
end;
end;
writeln('nome:',aluno[j].nome,' media:',aluno[j].media,' situacao:',aluno[j].sit);
end;
//b. A média das notas dos homens e a média das notas das mulheres;
writeln('--- media das notas dos homens e media das notas das mulheres ----');
q:=0;
somah:=0; somaM:=0; qhr:=0; qmr:=0;
for j:= 1 to i-1 do
begin
if (aluno[j].sexo ='m') or (aluno[j].sexo ='M') then
begin
q:=q+1;
somah:=somah + aluno[j].media;
if (aluno[j].sit='RM') or (aluno[j].sit ='RF') then
begin
qhr:= qhr + 1;
end;
end else begin
somaM:=somaM + aluno[j].media;
if (aluno[j].sit='RM') or (aluno[j].sit ='RF') then
begin
qmr:=qmr +1;
end;
end;
end;
if (q <> 0)then
begin
media:= somah /q;
writeln(' Homens:', media);
end else begin
writeln(' Homens: nao existe homem na turma');
end;
if (i-1-q)<>0 then
begin
media:=somaM/(i - 1 - q);
writeln(' Mulheres:',media);
end else begin
writeln(' Mulheres: nao existe mulher na turma');
end;
//c. O percentual de homem e o percentual de mulheres reprovados;
writeln(' -------------- percentual de reprovacoes -----------------------------');
if (q <> 0)then
begin
writeln(' Homens:',(qhr/q)*100);
end else begin
writeln(' Homens: nao existe homem na turma');
end;
if (i-1-q)<>0 then
begin
writeln(' Mulheres:',((qmr)/(i-1-q)*100));
end else begin
writeln(' Mulheres: nao existe mulher na turma');
end;
// d. O percentual geral de reprovação da turma.
writeln(' ------------ percentual geral de reprovacoes ------------ ');
writeln(' percentual =',((qhr + qmr)/(i-1))*100);
writeln('___________________________________________________________________________');
readkey;
end;
end.
