Pular para o conteúdo principal

Questão 4 da prova

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.

Postagens mais visitadas deste blog

Soma da sequencia (n * n) + 1

Program Pzim ; Var x,num,soma,soma2:integer; Begin     Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero     Read(Num); // lê o número     If num<=0 then //se o número for invalido recusa     Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem     else                                    For x:=1 to num do                         //faz de 1 até o numero         Begin            ...
Leia mais

Exercicio 2 com matriz

Program Pzim ; {2. Faça um algoritmo em que o usuario informe os valores para uma matriz 4x4  e em seguida efetive a soma dos valores que estão abaixo da diagonal secundária. O algoritmo deve mostrar os valores que estão abaixo da diagonal secundária e sua soma. Ex.: 1-5-2-2 7-5-3-2 8-4-6-1 5-4-3-1 Valores a serem usados, mostrados e somados: - - - - - - -2 - -6-1 -4-3-1 } var m:array[1..4,1..4] of integer; i,j, soma:integer;  Begin  for i:=1 to 4 do   begin   for j:=1 to 4 do   begin writeln('Digite a matriz : ');          //recebe os elementos da matriz readln(m[i,j]);   end;   end; for i:=1 to 4 do   begin   for j:=1 to 4 do   begin   if ((i+j)>= 6) then                 // se i+j >= 6, = condição para o elemento pertencer   begin               ...
Leia mais

Exercicio 4 de Heterogenea

Program Pzim ; {Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No final, imprima os produtos que tenha mais do que 5 unidades.} type r_produto = record     cod:integer;     nome:string;     quant:integer;     preco:real; end; var     v_produto:array [1..3] of r_produto;     i, qmais5:integer;  Begin  qmais5:=0;     for i:=1 to 3 do         begin             writeln('ENTRE COM OS DADOS DOS PRODUUTOS');             writeln('_______________________________');             writeln(' ',I,'o. Produto ');             writeln('_______________________________');             writ...
Leia mais