REGISTROSProfª Ms. Engª Elaine Cecília GattoCurso de Bacharelado em Engenharia de ComputaçãoUniversidade do Sagrado Coração – USCBauru/SP

Declaração de Registros

TYPE nome_da_variavel_registro = RECORDcampo 1: tipo 1;campo 2: tipo 2;

.....campo N: tipo N;END;

VARnome_da_variavel: nome_da_variavel_registro;

EXEMPLO 1

TYPE registro = RECORDnum : INTEGER;nome: STRING[35];saldo : REAL;END;

VARconta: registro;

EXEMPLO 2

TYPE registro = RECORDnum : INTEGER;nome: STRING[35];saldo : REAL;END;

VARconta : ARRAY [ 1 .. 15 ] of exemplo;

Acesso aos campos de um registro

nome_da_variavel_do_tipo_registro.nome_do_campo

Exemplo 1: inserindo dadosTYPE banco = RECORD

numero : INTEGER;saldo : REAL;titular : STRING[35];END;

.......VAR

conta : banco;........writeln( ‘ Digite o número da conta: ’ );readln( conta.numero );writeln( ‘ Digite o número do titular da conta: ’ );readln( conta.titular );writeln( ‘ Digite o saldo da conta: ’ );readln( conta.saldo );......

Exemplo 2: inserindo dados TYPE empresa = RECORD

nome : LITERAL;salario: REAL;END;

............VAR

funcionarios : ARRAY [ 1 .. 4 ] of empresa;............for i : 10 to 4 do

beginwriteln( ‘ Digite o nome do funcionario ’, i, ‘ : ’ );readln( funcionarios[i].nome );writeln( ‘ Digite o salário do funcionario ’, i, ‘ : ’ );readln( funcionarios[i].salario );

END;......

Exemplo 3: apresentando dadosTYPE empresa = RECORDnome : LITERAL;salario: REAL;END;............VARfuncionarios : ARRAY [ 1 .. 4 ] of empresa;............for i : 10 to 4 dobeginwriteln( ‘ Funcionário que ocupa a posição ’, i, ‘ no vetor: ’ );writeln( ‘ Nome: ’, funcionarios[i].nome );writeln( ‘ Salário: ’, funcionarios[i].salario:6:2 );END;......