quinta-feira, 27 de janeiro de 2011

Cálculo de notas com peso


{Escreva um programa que leia o codigo de um aluno e suas tres notas.
Calcule a media ponderada do aluno, considerando que o peso para a maior
nota seja 4 e para as duas restantes 3. mostre o codigo do aluno, suas
tres notas, a media calculada uma uma mensagem "APROVADO" se a media for
maior ou igual a 5 e "REPROVADO" se a media for menor que 5. Repita a
Operacao ate que o codigo lido seja negativo}

Program Exercicio_4;

Uses CRT;
Var Codigo: Integer;
MedPond, Nota1, Nota2, Nota3: Real;

Begin
MedPond := 0;
Clrscr;
While True Do
Begin
Writeln('Digite o C¢digo do Aluno: ');
Read(Codigo);
If (Codigo <>
Break
Else
Begin
Writeln('Digite a 1¦ Nota: ');
Read(Nota1);
Writeln('Digite a 2¦ Nota: ');
Read(Nota2);
Writeln('Digite a 3¦ Nota: ');
Read(Nota3);
If (Nota1 > Nota2) AND (Nota1 > Nota3) Then
MedPond := (Nota1*4+Nota2*3+Nota3*3)/10;
If (Nota2 > Nota1) AND (Nota2 > Nota3) Then
MedPond := (Nota1*3+Nota2*4+Nota3*3)/10;
If (Nota3 > Nota1) AND (Nota3 > Nota2) Then
MedPond := (Nota1*3+Nota2*3+Nota3*4)/10;
If (Nota1 = Nota2) AND (Nota2 = Nota3) Then
MedPond := (Nota1*4+Nota2*3+Nota3*3)/(4+3+3);
Writeln('1§ Nota: ', Nota1:2:2);
Writeln('2§ Nota: ', Nota2:2:2);
Writeln('3§ Nota: ', Nota3:2:2);
Writeln('A M‚dia do Aluno,', Codigo, ' ‚: ', MedPond:2:2);
If (MedPond >= 5) Then
Writeln('Aprovado')
Else
Writeln('Reprovado');
End;
End;
End.

Nenhum comentário:

Postar um comentário