Program Pzim ;
{FAÇA UM ALGORITMO PARA O USUARIO FORNECER O CÓDIGO, O SEXO (M OU F) E O NUMERO DE HORAS/AULA
DADAS NO MES PELO PROFESSOR DE UMA ESCOLA, SABENDO QUE O PROFESSOR GANHA R$ 12,50 HORA/AULA
E QUE A ESCOLA POSSUI 10 PROFESSORES MOSTRE
A) UMA LISTAGEM CONTENDO O CODIGO, O SLARI BRUTO E O SALARIO LIQUIDO DE TODOS OS PROFESSORES
B) A MEDIA ARITMETICA DOS SALARIOS BRUTO DOS PROFESSORES DO SEXO FEMININO}
type
r_professor=record
cod:integer;
sexo:char;
haula:integer;
end;
var
v_professor:array[1..4] of r_professor;
h_aula, pf, i:integer;
salbruto,salliq,desc, salf, somasf, mediasf:real;
{se houver variaveis para inicia, isso deve ser feito no inicio do programa}
Begin
pf:=0;
salf:=0;
somasf:=0;
mediasf:=0;
for i:=1 to 4 do
begin
writeln('Digite o cógido : ');
readln(v_professor[i].cod);
writeln('Digite o sexo : ');
readln(v_professor[i].sexo);
writeln('Digite a quantidade de hora-aulas : ');
readln(v_professor[i].haula);
end;
{acima é feita a entrada dos dados no registro}
{a partir daqui é feito a parte A do problema, com as condições dada na tabela}
{foi criadas variveis para receber o salario bruto, o desconto e o salario liquido}
for i:=1 to 4 do
begin
{se até 70 horas e do sexo masculino}
if ((v_professor[i].haula<=70) and (v_professor[i].sexo= 'M')) then
begin
salbruto:=(v_professor[i].haula*12.5);
desc:=(salbruto*0.1);
salliq:=(salbruto-desc);
end
else
{se até 70 horas e do sexo feminino}
if ((v_professor[i].haula<=70) and (v_professor[i].sexo= 'F')) then
begin
salbruto:=(v_professor[i].haula*12.5);
desc:=(salbruto*0.07);
salliq:=(salbruto-desc);
end
else
{mais que 70 horas e do sexo masculino}
if ((v_professor[i].haula>70) and (v_professor[i].sexo= 'M')) then
begin
salbruto:=(v_professor[i].haula*12.5);
desc:=(salbruto*0.08);
salliq:=(salbruto-desc);
end
else
{mais que 70 horas e do sexo feminino}
if ((v_professor[i].haula>70) and (v_professor[i].sexo= 'F')) then
begin
salbruto:=(v_professor[i].haula*12.5);
desc:=(salbruto*0.05);
salliq:=(salbruto-desc);
end;
{aqui mostramos a relação, note que usamos tanto dados no registro como das variaveis criadas}
writeln('Cód: ',v_professor[i].cod,' - Sal. bruto : ',salbruto:1:2,' - Desc : ',desc:1:2,' - Sal. Liq. : ',salliq:1:2);
end;
{a partir daqui é feito a parte B do problema}
for i:=1 to 4 do
begin
if (v_professor[i].sexo = 'F') then // se for do sexo feminino
begin
pf:=pf+1; //conta a quant. de professores do sexo feminino
h_aula:=v_professor[i].haula; //
salf:=h_aula*12.5; //calcula o salario feminino
somasf:=somasf+salf; // soma o salario feminino
end;
mediasf:=(somasf/pf); // calcula a media
end;
{exibe o resultado}
writeln('A media dos salarios dos prof. de sexo feminino é : ',mediasf:1:2);
End.
