Exercício 06 Registro - Pascal

6) Fazer um registro para representar aluno com os seguintes dados Nome, email, Nota1 e Nota2.
Utilizar um vetor de registros, fazer o cadastro de 30 alunos e mostrar ao final um relatório com os
alunos e a média das duas notas.

Program Reg06 ;
uses crt;
Const MAX=30;
Type semestre=array[1..2] of real;
        registro=record
            nome:string;
            email:string;
            notas:semestre;
            media:real;
        End; 
  tipo_aluno=array[1..MAX] of registro; 
var
 aluno:tipo_aluno;
 
 procedure preenche( var aluno:tipo_aluno);
 var
  i:integer;
 Begin
   Writeln('  Cadastro de Alunos');
  for i := 1 to MAX do
   Begin
        Write(i,' Nome  : ');
        readln(aluno[i].nome);
        Write(i,' E-mail: ');
        readln(aluno[i].email);
        Write(i,' Nota 1: ');
        readln(aluno[i].notas[1]);
        Write(i,' Nota 2: ');
        readln(aluno[i].notas[2]);
        aluno[i].media:= (aluno[i].notas[1] + aluno[i].notas[2])/2;
        Writeln;
   End;
  clrscr;      
 End;
  
  procedure imprime(aluno:tipo_aluno);
 var
  i:integer;
 Begin
   Writeln('     Cadastrados');
  for i := 1 to MAX do
   Begin
        Writeln(i,' Nome  : ',aluno[i].nome);
        Writeln(i,' E-mail: ',aluno[i].email);
        Writeln(i,' Media : ',aluno[i].media:0:1);    
        Writeln; 
   End;     
 End;
  
 Begin
  preenche(aluno);
  imprime(aluno);
 End.

Categories: Pascal , Programação