Registro - Pascal

Quando trabalhamos com matrizes percebemos que somente foi possível agrupar informações com o mesmo tipo de dados. Caso fosse necessário trabalhar com mais de um tipo de dado, precisaríamos criar matrizes diferentes. Para solucionar esta deficiência podemos utilizar uma estrutura de dados chamada de Registro.
Em um registro poderemos utilizar uma estrutura que agrupe várias informações, que podem ser de tipos de dados diferentes. Por esta razão, este tipo de dado é considerado heterogêneo. Em Pascal, os tipos registro devem ser declarados ou atribuídos antes das definições das variáveis, pois é muito comum ocorrer a necessidade de se declarar uma variável com o tipo de registro atribuído. Um tipo registro é
declarado em Pascal com a instrução type em conjunto com a instrução record.

Sintaxe:

type <identificador> = record

             <lista de campos e seus tipos>

        end;

var

<variavel> : <identificador_registro>

Ex.:

Type cliente=record

              nome:string;

              idade:integer;

         End;

var

 dados:array[1..10] of cliente;

 aux:cliente;

Exemplo:

program EX_REGISTRO1;
type  CAD_ALUNO = record
        NOME : string;
        NOTA1 : real;
        NOTA2 : real;
        NOTA3 : real;
        NOTA4 : real;
      end;
var
ALUNO : cad_aluno;

begin
    writeln('Cadastro de Aluno');
    writeln;
    write('Informe o nome..............: ');
    readln(ALUNO.NOME);        
    write('Informe a primeira nota....: '); readln(ALUNO.NOTA1);
    write('Informe a segunda nota.....: '); readln(ALUNO.NOTA2);
    write('Informe a terceira nota....: '); readln(ALUNO.NOTA3);
    write('Informe a quarta nota......: '); readln(ALUNO.NOTA4);
    writeln;
    writeln('Nome..: ' , ALUNO.NOME);
    writeln('Nota 1.: ' , ALUNO.NOTA1 :2:2);
    writeln('Nota 2.: ' , ALUNO.NOTA2 :2:2);
    writeln('Nota 3.: ' , ALUNO.NOTA3 :2:2);
    writeln('Nota 4.: ' , ALUNO.NOTA4 :2:2); writeln;
    writeln('Tecle <ENTER> para encerrar: '); readln;
end.

EXERCÍCIO

01 02 03 04 05 06

Categories: Pascal , Programação