Algoritmo

[Babiloly]

Faça um programa em Pascal que leia a nota de três avaliações, a nota de um trabalho e a quantidade de faltas de um aluno na disciplina de Programação 1. Considere que foram dadas 80 aulas e que se o aluno tiver um percentual de faltas superior a 25%, das aulas dadas, ele está reprovado por falta. Considere também que as notas em cada uma das avaliações e a nota do trabalho podem variar de 0 a 100 pontos.

- Calcule a Nota Semestral Parcial (NSP) como uma média ponderada, onde: a primeira avaliação tem peso 2, a segunda avaliação tem peso 3, a terceira avaliação tem peso 4 e o trabalho tem peso 1.

- Imprima a NSP, o percentual de faltas do aluno e uma mensagem informando sua situação (Aprovado, Reprovado for falta, Prova final) de acordo com a regra a seguir.

- Caso o aluno esteja na situação Prova Final, além dos dados anteriores calcule e imprima quanto ele tem que tirar na prova final a fim de que seja aprovado.

Para os alunos que não ficaram reprovados por falta, vale a seguinte regra:

se NSP >=60

..APROVADO

senao

..PROVA FINAL

se PROVA FINAL

..NOTA DA PROVA FINAL >= (60 - 0,4 x NSP) / 0,6

se NOTA DA PROVA FINAL >= (60 - 0,4 x NSP) / 0,6

..APROVADO

senao

..REPROVADO POR NOTA

Meu Algoritmo

__________________________-

algoritmo aprovreprov;

pt,nsp,n1,n2,n3,nfaltas,nfinal,naulas,ntrabalho,p1,p2,p3,ptrabalho:real;

aluno:caracter;

Inicio

naula<-80;

p1<-2;

p2<-3;

p3<-4;

pt<-1;

Escreva ("Informe o Nome do Aluno");

leia (aluno);

Escreva ("Nota1");

Leia (n1);

Escreva ("Nota 2");

Leia (n2);

Escreva ("Nota 3");

Leia (n3);

Escreva ("Nota do Trabalho");

leia (ptrabalho);

nsp<-(n1*p1+n2*p2+n3*p3+pt*ptrabalho)/(p1+p2+p3+pt);

Escreva ("Nota Semestral=",nsp);

leia (nsp);

fim

Estou no caminho certo??

Obrigada