Question

Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O mesmo deverá realizar a leitura do nome do aluno e as três notas de uma disciplina. Ao final, escreva o nome do aluno, sua média e se ele foi aprovado, considerando que a média para aprovação deverá ser igual ou maior que 7 (sete). Observação: não é necessário a utilização de Array.

Answer 1

Program Calcula_Media ;

var

Nome:string;

Disciplina:string;

Nota1:real;

Nota2: real;  

Nota3:real;  

Media:real;

Begin

writeln('Entre com o nome do aluno: ');

readln(Nome);

writeln('Entre com o nome da Disciplina: ');

readln(disciplina);

writeln('Entre com a nota 1: ');

readln(Nota1);

writeln('Entre com a nota 2: ');

readln(Nota2);

writeln('Entre com a nota 3: ');

readln(Nota3);

Media:=(Nota1+Nota2+Nota3)/3;  

begin

writeln('As notas foram: ' ,Nota1:0:1,  ',' ,Nota2:0:1, ',' ,Nota3:0:1, '.');

writeln('O aluno: ',Nome, '.');

writeln('Na Disciplina :',Disciplina, '.');  

writeln('Obteve media: ',Media:0:1, '.');

if (Media >= 7)then

 writeln('Foi Aprovado.')

 

 else

   

 writeln('Foi Reprovado.');

end;  

 

End.

Explicação: