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:
program ex;
var
alunos: array[1..10] of record
nota1, nota2, media: real;
situacao: string;
end;
i, aprovados, reprovados, terceira: integer;
media_classe: real;
begin
aprovados := 0;
reprovados := 0;
terceira := 0;
media_classe := 0;
for i := 1 to 10 do begin
write('Informe a nota 1 do aluno ', i, ': ');
readln(alunos[i].nota1);
write('Informe a nota 2 do aluno ', i, ': ');
readln(alunos[i].nota2);
alunos[i].media := (alunos[i].nota1 + alunos[i].nota2) / 2;
media_classe := media_classe + alunos[i].media;
if alunos[i].media <= 4 then begin
alunos[i].situacao := 'Reprovado';
reprovados := reprovados + 1;
end
else if (alunos[i].media > 4) and (alunos[i].media < 8) then begin
alunos[i].situacao := 'Terceira';
terceira := terceira + 1;
end
else begin
alunos[i].situacao := 'Aprovado';
aprovados := aprovados + 1;
end;
end;
media_classe := media_classe / 10;
writeln('Média dos alunos:');
for i := 1 to 10 do begin
writeln('Aluno ', i, ': ', alunos[i].media:0:2);
end;
writeln('Total de aprovados: ', aprovados);
writeln('Total de reprovados: ', reprovados);
writeln('Total de terceira: ', terceira);
writeln('Média da classe: ', media_classe:0:2);
writeln('Situação dos alunos:');
for i := 1 to 10 do begin
writeln('Aluno ', i, ': ', alunos[i].situacao);
end;
end.
Explicação passo a passo:
Este programa declara uma estrutura de registro para armazenar as informações de cada aluno, incluindo suas notas, média e situação. O programa então usa um laço "for" para ler as notas dos 10 alunos e calcular a média, a situação e a média da classe. Finalmente, o programa exibe as informações de cada aluno e as estatísticas gerais.