
Para o algoritmo (Media_notas_turma) a seguir, fazer um teste de mesa para as
seguintes, três, entradas de notas, a saber: 7, 8, 5, 6 – 8, 7, 8, 6 – 6, 5, 5, 4.
Algoritmo Media_notas_turma;
Var
N1, N2, N3, N4, Soma, Media, Media_total : real;
Alunos, Alunos_AP, Alunos_RP : inteiro;
continuar : char;
Início
Alunos := 0;
Alunos_AP := 0;
Alunos_RP := 0;
Soma := 0;
continuar := 's';
Repita
Leia(N1, N2, N3, N4);
Media := (N1 + N2 + N3 + N4) / 4;
Soma := Soma + Media;
Alunos := Alunos + 1;
Se (Media >= 7)
então
Escreva('Aprovado - média: ',Media);
Alunos_AP := Alunos_AP + 1;
senão
Escreva('Reprovado - média: ',Media);
Alunos_RP := Alunos_RP + 1;
Fim_se;
Leia(continuar);
Até_que (continuar <> 's');
Media_total := Soma / Alunos;
Escreva('Média total: ', Media_total);
Escreva('Total de Alunos: ', Alunos);
Escreva('Total de Alunos Aprovados : ', Alunos_AP);
Escreva('Total de Alunos Reprovados: ', Alunos_RP);
Fim.
1/1
-
14/07/15