Pascalzim programação
Desenvolver um programa que receba as duas notas de 10 alunos, calcular e mostrar a média de cada aluno, o total de aprovados, o total de reprovados, o total de recuperação e a média da classe. Considerar que se sua média for até 4 ele está reprovado, acima de 4 e abaixo de 8 ele está de terceira e acima de 8 ele está aprovado. Mostrar também a situação de cada um deles.
Desenvolver um programa que receba as duas notas de 10 alunos, calcular e mostrar a média de cada aluno, o total de aprovados, o total de reprovados, o total de recuperação e a média da classe. Considerar que se sua média for até 4 ele está reprovado, acima de 4 e abaixo de 8 ele está de terceira e acima de 8 ele está aprovado. Mostrar também a situação de cada um deles.
More Questions From This User See All
Lista de comentários
Resposta:
Exemplo de código
Explicação passo-a-passo:
program Alunos;
var
nota1, nota2, media: array[1..10] of real;
i, aprovados, reprovados, recuperacao: integer;
media_classe: real;
begin
aprovados := 0;
reprovados := 0;
recuperacao := 0;
media_classe := 0;
for i := 1 to 10 do
begin
write('Entre com a primeira nota do aluno ', i, ': ');
readln(nota1[i]);
write('Entre com a segunda nota do aluno ', i, ': ');
readln(nota2[i]);
media[i] := (nota1[i] + nota2[i]) / 2;
media_classe := media_classe + media[i];
if media[i] <= 4 then
begin
writeln('Aluno ', i, ' reprovado');
reprovados := reprovados + 1;
end
else if (media[i] > 4) and (media[i] < 8) then
begin
writeln('Aluno ', i, ' em recuperação');
recuperacao := recuperacao + 1;
end
else
begin
writeln('Aluno ', i, ' aprovado');
aprovados := aprovados + 1;
end;
writeln('A média do aluno ', i, ' é ', media[i]:0:2);
end;
media_classe := media_classe / 10;
writeln('Média da classe é ', media_classe:0:2);
writeln('Total de alunos aprovados: ', aprovados);
writeln('Total de alunos em recuperação: ', recuperacao);
writeln('Total de alunos reprovados: ', reprovados);
end.
Olá!
Resposta:
Aqui está um exemplo de programa em Pascal que faz o que você pediu:
Copy code
program notas;
const
NUM_ALUNOS = 10;
APROVADO = 8;
RECUPERACAO = 4;
var
nota1, nota2, media: array[1..NUM_ALUNOS] of real;
i, aprovados, reprovados, recuperacao: integer;
media_classe: real;
begin
aprovados := 0;
reprovados := 0;
recuperacao := 0;
media_classe := 0;
for i := 1 to NUM_ALUNOS do
begin
write('Informe a primeira nota do aluno ', i, ': ');
readln(nota1[i]);
write('Informe a segunda nota do aluno ', i, ': ');
readln(nota2[i]);
media[i] := (nota1[i] + nota2[i]) / 2;
writeln('A media do aluno ', i, ' e: ', media[i]:0:2);
if media[i] >= APROVADO then
begin
aprovados := aprovados + 1;
writeln('Aluno aprovado');
end
else if media[i] >= RECUPERACAO then
begin
recuperacao := recuperacao + 1;
writeln('Aluno em recuperacao');
end
else
begin
reprovados := reprovados + 1;
writeln('Aluno reprovado');
end;
media_classe := media_classe + media[i];
end;
media_classe := media_classe / NUM_ALUNOS;
writeln('Total de aprovados: ', aprovados);
writeln('Total de reprovados: ', reprovados);
writeln('Total de recuperacao: ', recuperacao);
writeln('Media da classe: ', media_classe:0:2);
readln;
end.
Este programa utiliza um loop "for" para ler as notas de cada aluno e calcular a média. Ele então compara a média com os valores de aprovação e recuperação e conta o número de aprovados, reprovados e recuperação. Finalmente, ele calcula e exibe a média.
Espero ter ajudado!
Se puder, dê o coraçãozinho e sua nota. Muito obrigado!