1. Calcule a média aritmética das 3 notas de um aluno e mostre, além do valor
da média, uma mensagem de "Aprovado", caso a média seja igual ou superior
a 6, ou a mensagem "reprovado", caso contrário.
Algoritmo media;
var
nota1, nota2, nota3, calc_media: real; //definição variáveis
begin
write ('Digite a Primeira Nota.:');
readln (nota1);
write ('Digite a Segunda Nota.:');
readln (nota2);
write ('Digite a Terceira Nota.:');
readln (nota3);
//nota1 := 5; //entradas
//nota2 := 7;
calc_media := (nota1 + nota2 + nota3) /3; //processamento
if calc_media <= 6 then
write ('Aluno Reprovado com a Media',calc_media)
else if calc_media >= 7 then
write ('Aluno Aprovado com a Media',calc_media);
readln();
end.
Programa em PASCAL
// Josivan Sousa
// www.facebook.com/josivan.sousabj
program media;
var
nota1, nota2, nota3, calc_media: real; //definição variáveis
begin
write ('Digite a Primeira Nota.:');
readln (nota1);
write ('Digite a Segunda Nota.:');
readln (nota2);
write ('Digite a Terceira Nota.:');
readln (nota3);
//nota1 := 5; //entradas
//nota2 := 7;
