Question

LINGUAGEM PASCAL OU VISUALG
3.4. Faça um programa para calcular a média final de um aluno da UNISINOS, numa disciplina.
São lidos: número de matrícula do aluno, a nota do Grau A e a nota do Grau B. Caso o aluno não
tenha alcançado a média 6.0, pedir para ele informar a nota do Grau C e informar qual o grau que
ele deseja substituir (A ou B). Após a leitura dos dados do aluno, exibir o número de matrícula,
seguido da média final deste aluno, conforme indicado no exemplo abaixo:
Entre com o número de matrícula : 1234567-8
Entre com a nota do Grau A: 8.2
Entre com a nota do Grau B: 4.1
Média abaixo do limite de aprovação: 5.46
Entre com a nota do Grau C: 6.4
Qual grau que o Grau C substitui: B
Matrícula: 1234567-8 Média Final: 7.00

Answer 1

Segue o codigo em pascal

Program Media_com_alteracao ; 
var media, mediafinal, graua, graub, grauc : real; 
matricula, a, b : string; 
subs : char; 
Begin
media := 0;

write( 'Entre com o número de matrícula : ' ) ;   
readln( matricula ) ;
write( 'Entre com a nota do Grau A: ' ) ;  
readln( graua ) ;
write( 'Entre com a nota do Grau B: ' ) ;  
readln( graub ) ;
media := ((graua + graub) /2);
if (media < 6) then
begin
writeln( 'Média abaixo do limite de aprovação: ', media:6:2 ); 
write( 'Entre com a nota do Grau C: ' ) ;   
readln( grauc ) ; 
write( 'Qual grau que o Grau C substitui: ' ) ; 
readln( subs ) ; 
case (subs) of
'a' : media := ((graub + grauc)/2);
'b' : media := ((graua + grauc)/2);
end;
end;

writeln( 'Matricula: ', matricula ); writeln( 'Media Final: ', media:6:2 ) ; End.