ALgoritmo Pascal
Artigo: ALgoritmo Pascal. Pesquise 859.000+ trabalhos acadêmicosPor: Ederlei • 19/6/2014 • 610 Palavras (3 Páginas) • 344 Visualizações
Program Medias ;
//1 - Solicite ao usuário que informe, para 5 alunos, 4 notas. As notas irão de 1.0 a 10.0 , aceitando valores decimais. Ex: 8.5
//2 - Faça imprimir na tela uma tabela com as 4 notas dos alunos, além de uma coluna para a média aritmética e outra para a situação do aluno.
//2.1 - A situação do aluno deverá ser:
//a) Média menor que 5, Reprovado.
//b) Média entre 5 e 7, Exame
//c) Média 7 ou maior, Aprovado.
//2.2 - A média aritmética e a situação do aluno deverão ser retornados com subprogramação.
//2.3 - A tabela deverá conter cabeçalhos informando o significado de cada coluna.
//2.4 - As notas e as médias deverão aparecer formatadas com duas casas decimais na tabela e alinhadas com as colunas.
//3 - Ao final do programa, imprimir a média geral da turma. (Soma de todas as médias divido pelo número de alunos).
//4 - Ponto bônus para quem validar a entrada do usuário, solicitando a nota ATÉ QUE ela esteja entre 0 e 10.
var
nota: array[1..5,1..4] of real;
lin: integer;
col: integer;
mediaaluno: real;
mediageral: real;
function media(nota1,nota2,nota3,nota4:real):real;
begin
media := (nota1 + nota2 + nota3 + nota4)/4;
end;
function Situacao (nota1:real):string;
begin
if mediaaluno >= 7 then
begin
Situacao := 'Aluno Aprovado';
end
else
begin
if mediaaluno >= 5 then
begin
Situacao := 'Aluno pegou Exame';
end
else
begin
Situacao := 'Aluno Reprovado';
end;
end;
end;
Begin
for lin := 1 to 5 do
begin
for col := 1 to 4 do
begin
...