Algoritmo Professor

[DSR1]

Por favor, estou com uma duvida não consigo colocar o salario inicial do professor nesse algoritmo alguém pode me ajudar?

Uma escola contratou 15 professores temporários para o próximo semestre. De acordo com a média

do número de alunos mensais que permanecem no curso, eles adquirem pontos que determinarão

seus salários ao final de cada mês. Esses pontos são colocados em uma tabela que será entregue ao

departamento pessoal para realizarem os cálculos. Sabendo que esses professores trabalharão nos

meses de novembro a janeiro do ano subseqüente, faça um programa que:

a) leia as pontuações de cada um dos meses de trabalho de cada professor;

calcule e mostre a pontuação geral de cada professor;

c) calcule e mostre a média das pontuações de cada professor;

d) determine e mostre o valor total do salário de cada professor, sabendo que: salário final:= salário

inicial + media_pontos%* salário inicial;

d) Determine e mostre o maior salário atingido entre todos os professores nos três meses.

Observação: salário inicial = R$323,00.

PROGRAM salario_do_professor;
USES winCRT;
VAR cont_prof, cont_mes, pont, pont_total, maior_pont: INTEGER;
media_pont,sal_final,sal_inic: REAL;
BEGIN
CLRSCR;
maior_pont := 0;
cont_prof :=1;
WHILE cont_prof<= 15 DO
BEGIN
pont_total := 0;
cont_mes := 1;
WHILE cont_mes <= 3 DO
BEGIN
WRITELN(‘Digite a pontuação do ‘,cont_prof,’do professor
no ‘,cont_mes,’do mˆs’);
READLN(pont);
pont_total := pont_total + pont;
IF pont > maior_pont
THEN maior_pont := pont;
cont_mes := cont_mes + 1;
BEGIN
sal_final:=(sal_inic+media_pont)%*sal_inicial;

WRITELN(‘Pontuação total do ‘, cont_prof,’do professor =
‘,pont_total);
media_pont := pont_total/3;
WRITELN(‘M‚dia da pontuaçãonos 3 meses do ‘,cont_prof,’do
professor = ‘, media_pont:5:2);
cont_prof := cont_prof + 1;
writeln;
END;
WRITELN(‘Maior pontuação atingida = ‘,maior_pont);
READLN;
END.

[kelson.23]

DSR1, eu vi o seu codigo e não deu pra aproveitar, seria bastante complicado fazer isso sem usar vetores para armazenar os pontos dos professores, então eu fiz um código bem simples usando vetores, bem eu não entendi muito bem esse calculo do salário final mas olhe aí para ver se é isso mesmo.

Program ctrl_professor;
uses
  crt;

const
  max = 15;

type
  vet = array[1..max] of real;

var
  mes1,mes2,mes3,sal_fim  :vet;
  i,id                               :integer;
  med,medcent,maior         :real;

Begin
  ClrScr;
  { Ler pontos do mês 1 }
  writeln('Informe a pontuação dos ',max,' professores para o 1º mês:');
  for i:=1 to max do
    readln(mes1[i]);
  ClrScr;

  { Ler pontos do mês 2 }
  writeln('Informe a pontuação dos ',max,' professores para o 2º mês:');
  for i:=1 to max do
    readln(mes2[i]);
  ClrScr;

  { Ler pontos do mês 3 }
  writeln('Informe a pontuação dos ',max,' professores para o 3º mês:');
  for i:=1 to max do
    readln(mes3[i]);
  ClrScr;

  { Calcula e exibe a pontuação, média e salário }
  writeln('Pontuação de cada professor:');
  gotoxy(6 ,2); writeln('Pontuação     Média     Salário');
  for i:=1 to max do
  begin
    med:=((mes1[i]+mes2[i]+mes3[i])/3);
    medcent:=(med/323)*100;
    sal_fim[i]:=(323+medcent)*3;
    gotoxy(2, i+2); writeln(i,' - ',mes1[i]+mes2[i]+mes3[i]:0:2);
    gotoxy(20,i+2); writeln(med:0:2);
    gotoxy(30,i+2); writeln('R$ ',sal_fim[i]:0:2);
  end;
  maior:=0;

  { Exibe o maior salário dos 3 meses }
  for i:=1 to max do
    if sal_fim[i] > maior then
    begin
      maior:=sal_fim[i];
      id:=i;
    end;
  writeln;
  writeln('Maior Salário: Professor ',id,' R$ ',maior:0:2);
  readkey;
End. 

[DSR1]

DSR1, eu vi o seu codigo e não deu pra aproveitar, seria bastante complicado fazer isso sem usar vetores para armazenar os pontos dos professores, então eu fiz um código bem simples usando vetores, bem eu não entendi muito bem esse calculo do salário final mas olhe aí para ver se é isso mesmo.

Program ctrl_professor;
uses
  crt;

const
  max = 15;

type
  vet = array[1..max] of real;

var
  mes1,mes2,mes3,sal_fim  :vet;
  i,id                               :integer;
  med,medcent,maior         :real;

Begin
  ClrScr;
  { Ler pontos do mês 1 }
  writeln('Informe a pontuação dos ',max,' professores para o 1º mês:');
  for i:=1 to max do
    readln(mes1[i]);
  ClrScr;

  { Ler pontos do mês 2 }
  writeln('Informe a pontuação dos ',max,' professores para o 2º mês:');
  for i:=1 to max do
    readln(mes2[i]);
  ClrScr;

  { Ler pontos do mês 3 }
  writeln('Informe a pontuação dos ',max,' professores para o 3º mês:');
  for i:=1 to max do
    readln(mes3[i]);
  ClrScr;

  { Calcula e exibe a pontuação, média e salário }
  writeln('Pontuação de cada professor:');
  gotoxy(6 ,2); writeln('Pontuação     Média     Salário');
  for i:=1 to max do
  begin
    med:=((mes1[i]+mes2[i]+mes3[i])/3);
    medcent:=(med/323)*100;
    sal_fim[i]:=(323+medcent)*3;
    gotoxy(2, i+2); writeln(i,' - ',mes1[i]+mes2[i]+mes3[i]:0:2);
    gotoxy(20,i+2); writeln(med:0:2);
    gotoxy(30,i+2); writeln('R$ ',sal_fim[i]:0:2);
  end;
  maior:=0;

  { Exibe o maior salário dos 3 meses }
  for i:=1 to max do
    if sal_fim[i] > maior then
    begin
      maior:=sal_fim[i];
      id:=i;
    end;
  writeln;
  writeln('Maior Salário: Professor ',id,' R$ ',maior:0:2);
  readkey;
End. 

Kelson

Muito Obrigado por ter me ajudado, valeu mesmo, me ajudou muito, fique com Deus e até +!

[Mog.Lucas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.