Scribd
Carregar
35 visualizações5 páginas

Trabalho Prático II

O documento descreve um programa em Pascal que gerencia notas de estudantes, permitindo a leitura de nomes e notas, cálculo de médias, e categorização dos alunos como excluídos, admitidos ou dispensados. O programa também determina a menor e maior nota, além de contar o número de alunos aprovados, reprovados e excluídos. O usuário pode inserir até 50 alunos e receber um relatório detalhado da pauta da disciplina.

Enviado por

Tiago Júnior
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato PDF, TXT ou leia on-line no Scribd
35 visualizações5 páginas

Trabalho Prático II

O documento descreve um programa em Pascal que gerencia notas de estudantes, permitindo a leitura de nomes e notas, cálculo de médias, e categorização dos alunos como excluídos, admitidos ou dispensados. O programa também determina a menor e maior nota, além de contar o número de alunos aprovados, reprovados e excluídos. O usuário pode inserir até 50 alunos e receber um relatório detalhado da pauta da disciplina.

Enviado por

Tiago Júnior
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato PDF, TXT ou leia on-line no Scribd
Você está na página 1/ 5

Trabalho Prático II

Descrição do Programa
Programa que realiza as seguintes operações:
a) Leia o nome e as três notas de uma dada disciplina de cada estudante da turma;
b) Forme a pauta da semestral da disciplina contendo o nome do estudante, sua média e se
ele foi excluído, admitido ou dispensado;
c) Determine a menor e a maior nota da pauta de frequência;
d) Determine a quantidade de estudantes aprovados;
e) Determine a quantidade de estudantes reprovados;
f) Determine a quantidade de estudantes excluídos
Observações: Foi recomendado o uso de Procedimentos ou Funções no Código Fonte.
Funcionalidades do Programa
 Ler o nome e as três notas de uma dada disciplina de cada estudante da turma;
 Formar a pauta da semestral da disciplina contendo o nome do estudante, sua média
e se ele foi excluído, admitido ou dispensado;
 Determinar a menor e a maior nota da pauta de frequência;
 Determinar a quantidade de estudantes aprovados;
 Determinar a quantidade de estudantes reprovados;
 Determinar a quantidade de estudantes excluídos
Operação do Programa
Para operar o programa o utilizador deverá inserir a quantidade de estudantes da turma,
tendo em conta que o número máximo predefenido pelo programa é de 50 alunos. Após a
inserção da quantidade de alunos, o usuário poderá fazer as seguintes actividades:
 Inserir o nome do aluno;
 Colocar as Três notas para o cálculo da média de cada aluno;
 Obter a situação para cada aluno (Excluido,Admitido ou ainda Dispensado);
 Receber um relário geral da Pauta com os seguintes pontos: maior nota, menor nota,
numero de aprovados,reprovado e excluidos.

 Para colocar o Tamanho da Turma: o usuário deverá digitar na quantidadde de


alunos, sem esquecer-se de que o programa tem limitação de até no máximo 50
alunos predefinidos no código fonte;
 Para lançar as 3 notas para o cálculo da Média: após a inserção do nome do
aluno, o usuário poderá digitar as três nos para o posterior cálculo da Média do aluno
em causa;
 Fase Final (Pauta da Disciplina): após ter se seguido os passos anteriores o
programa vai criar uma pauta com as seguintes os seguin tes itens: Nome, Média e a
Situação de cada aluno e entre outros itens para uma visão geral da Pauta da
Disciplina.

1
Principais instruções
Para o programa em anexo foram usados Procedimentos e estruturas condicionais.
Metodologia e Recursos usados:
 Compilador da Linguagem Pascal;
 Matérias dadas nas aulas teóricas sobre procedimentos;
 Alguns Videos explicativos da internet;
Tabela de Participação
Membro Classificação Quantitativa Assinatura
Almirante Mungumbe 18
Arão Mucavele 18
Atia Juma 18
Manuel Melembe 18
Tiago júnior 18

2
Código-Fonte do Programa:
program PautaSemestral;

{Este Código permite realizar as seguintes funcoes:


a) Ler o nome e as três notas de uma dada disciplina de cada estudante da turma;
b) Formar a pauta da semestral da disciplina contendo o nome do estudante, sua
média e se ele foi
excluído, admitido ou dispensado;
c) Determinar a menor e a maior nota da pauta de frequência;
d) Determinar a quantidade de estudantes aprovados;
e) Determinar a quantidade de estudantes reprovados;
f) Determinar a quantidade de estudantes excluídos.}

type
Aluno = record
nome: string;
nota1, nota2, nota3: real;
media: real;
situacao: string;
end;

var
turma: array[1..50] of Aluno;
qtdeAlunos, i: integer;
menorNota, maiorNota: real;
qtdeAprovados, qtdeReprovados, qtdeExcluidos: integer;

procedure lerNotas(var a: Aluno);


begin
write('Digite o nome do aluno: ');
readln(a.nome);
write('Digite a primeira nota: ');
readln(a.nota1);
write('Digite a segunda nota: ');
readln(a.nota2);
write('Digite a terceira nota: ');
readln(a.nota3);
end;

procedure calcularMedia(var a: Aluno);


begin
a.media := (a.nota1 + a.nota2 + a.nota3) / 3;
end;

procedure definirSituacao(var a: Aluno);


begin
if (a.media < 10) then
a.situacao := 'Excluido'
else if (a.media >= 14) then

3
a.situacao := 'Dispensado'
else
a.situacao := 'Admitido';
end;

begin
write('Digite a quantidade de alunos: ');
readln(qtdeAlunos);

menorNota := 10;
maiorNota := 0;
qtdeAprovados := 0;
qtdeReprovados := 0;
qtdeExcluidos := 0;

for i := 1 to qtdeAlunos do
begin
lerNotas(turma[i]);
calcularMedia(turma[i]);
definirSituacao(turma[i]);

if (turma[i].media < menorNota) then


menorNota := turma[i].media;

if (turma[i].media > maiorNota) then


maiorNota := turma[i].media;

if (turma[i].situacao = 'Admitido') then


qtdeAprovados := qtdeAprovados + 1
else if (turma[i].situacao = 'Excluido') then
qtdeExcluidos := qtdeExcluidos + 1
else
qtdeAprovados := qtdeAprovados + 1;
end;

// Impressão da pauta da disciplina


writeln(' Pauta da Disciplina ');
writeln(' -----------------------');
writeln('Nome: Média: Situacao:');
for i := 1 to qtdeAlunos do
begin
writeln(turma[i].nome, ' ', turma[i].media:0:2, ' ', turma[i].situacao);
end;

// Impressão dos resultados


writeln('Menor nota: ', menorNota:0:2);
writeln('Maior nota: ', maiorNota:0:2);
writeln('Quantidade de aprovados: ', qtdeAprovados);
writeln('Quantidade de reprovados: ', qtdeReprovados);
writeln('Quantidade de excluidos: ', qtdeExcluidos);

4
readln;
end.

Você também pode gostar

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy