Aniversariantes do Mês em Pascal

Em dúvida ao leitor Gabriel:

" BOA NOITE.

Olá meu nome é Gabriel, e sou aluno do curso de sistemas de informação, estou no primeiro semestre e estou tendo muita dificuldade com o Pascal.

Gostaria de pedir que o senhor fizesse um algoritmo em Pascal para mim, preciso entregar hoje as 18:30 tem como?

Uma escola possui o cadastro de seus alunos (100 alunos), contendo o nome, série, turma e data de nascimento. Deseja-se elaborar uma relação de "Aniversariantes do Mês" ao ser informado pelo usuário, o número correspondente ao mês desejado. Faça um programa para isso, considerando que
a escola tem 100 alunos. O programa deve preencher o vetor de alunos antes de tudo.

por favor, esse professor não ensinou nada a turma e agora exige o exercicio pronto."

Muitas vezes isso vem acontecendo e fica difícil saber se o professor não gosta da matéria ou se não tem domínio e acredite que já vi muitos professores assim na minha época de faculdade e foi nessa época em que comecei a fazer programas em Pascal e para calculadoras HP para várias faculdades.

Vamos a resposta:

 Program Cadastro_de_Alunos;  
 Uses Crt;  
 var  
  nome : Array [1..100] of String [50];  
  serie : Array [1..100] of Byte;  
  turma : Array [1..100] of String [10];  
  dia : Array [1..100] of Byte;  
  mes : Array [1..100] of Byte;  
  ano : Array [1..100] of Integer;  
  q,m,i : Integer;  
 begin  
  ClrScr;  
  Write ('Quantos alunos serao cadastrados?'); ReadLn(q);  
  for i := 1 to q do  
  begin  
   Write ('Nome:'); ReadLn (nome[i]);  
   Write ('Serie:'); ReadLn (serie[i]);  
   Write ('Turma:'); ReadLn (turma[i]);  
   Write ('Data de Nascimento:');  
   Write ('Dia:'); ReadLn (dia[i]);  
   Write ('Mes:'); ReadLn (mes[i]);  
   Write ('Ano:'); ReadLn (ano[i]);  
  end;  
  Write ('Qual o mes para verificar os aniversariantes?'); ReadLn(m);  
  for i := 1 to q do  
  begin  
   if mes[i] = m then  
   begin  
    WriteLn (Nome[i],'-',Serie[i],'-', Turma[i]);  
   end;  
  end;  
  ReadLn;  
 end.  

Se você tem uma dúvida envie para mim.

Nenhum comentário:

Postar um comentário