lunes, 30 de junio de 2008

REGISTROS (RECORD)

Registros (Record)

Son estructuras de datos cuyos elementos pueden ser de diferentes tipos. En los registros se puede almacenar una variedad de información sobre una persona (nombre, estado civil, edad, fecha de nacimiento, etc.).

Cada elemento se almacena en un campo de registro independiente y se puede referenciar cada elemento almacenado en un campo por su nombre.
Tambien, se puede decir que un registro (record) es un tipo de dato estructurado que consta de un conjunto de elementos que pueden ser del mismo tipo o no. Los componentes de un registro se denominan campos, cada campo tiene un nombre llamado identificador del campo.

Formato:

TYPE
tipo_registro= record
lista_1: tipo_dato1;
lista_2 tipo_dato2;
lista_3 tipo_dato3;
.
.
.
lista_n:tipo_daton;
end;

donde,
tipo_registro es el nombre de la estructura.
lista_1, lista_2, lista_3 ... linsta_n son los nombres de los campos.
dato1, dato2, dato3 ... daton son los tipos de datos de cada campo.

VAR
nombre_reg:tipo_registro;

donde nombre_reg es el nombre de la variable de tipo registro.
tipo_registro es el nombre de la estructura que se uso en TYPE.


Ejemplo: Declarar un registro de empleados cuyos campos son: nombre, edad, direccin y salario

TYPE
empleado= record
nombre:string[30];
edad:integer;
direccion:string[40];
salarios:real;
end;

VAR
trabajador:empleado;

graficamente seria
nombre: Juan Perez
edad:22
direccion: calle 50, barquisimeto estado Lara.
salario12345

Acceso a los campos de un registro: Se puede acceder a cada campo de un registro directamente usando un designador o selectro de campo.
Formato: nombre_registro.nombre_campo

Ejemplo:
trabajador.nombre
trabajador.edad
trabajador.direccion
trabajador.salario

Una vez que los datos estan almacenados en un registro, se pueden manipular de igual forma que otros datos en memoria.
writeln ('el empleado se llama:', trabajador.nombre)
visualizad en pantalla lo siguiente el empleado se llama: Juan Perez

Operaciones sobre registros: Las operaciones de escritura y lectura se deben realizar individualmente, ya que un registro esta compuesto por campos de tipos diferentes.

Cargar datos a un registro y mostrarlos

program cargar_mostrar;
uses crt;
type
empleado=record
nombre:string[30];
edad:integer;
direcccion:string[40];
salario:real
end;

var
trabajador:empleado;
begin
{inicio cargar registro}
writeln('Introduzca nombre');
readln(trabajador.nombre);
writeln('Introduzca la edad');
readln(trabajador.edad);

writeln('Introduzca direccion');
readln(trabajador.direccion);

writeln('Introduzca salario');
readln(trabajador.salario);

{fin cargar registro}

{inicio mostrar informacion}
writeln('el nombre es', trabajador.nombre);
writeln('la edad del trabajador es', trabajador.edad);
writeln('la direccion del trabajador es', trabajador.direccion);
writeln('el salario del trabajador es', trabajador.salario);
readln;
{fin mostrar informacion}
end.


Ejercicio: Sean 10 alumnos de los cuales se tienen los siguientes datos nombre, asignatura y 4 notas de la asignatura. Calcular y mostrar la suma de las 4 notas y la media de la asignatura.

program registros;
uses crt;
type
alumnos=record
nombre:string[30];
asignatura:string[40];
nota:real;
end;

var
alumno:alumnos;
i,c:integer;
suma,media:real;

begin
for c:= 1 to 10 do
begin
writeln('Introduzca el nombre');
readln(alumno.nombre);
writeln('Introduzca la asignatura');
readln(alumno.asignatura);
suma:=0;

for i:=1 to 4 do
begin
writeln('introduzca la nota', i);

readln(alumno.nota);
suma:=suma+alumno.nota;
end;

media:=suma/4;
writeln('la media del alumno', alumno.nombre, 'es', media:2:2);
writeln('la suma es:',suma:2:2);
readln;
clrscr;

end;
end.

Tomado del libro Programacion en Pascal de Luis Joyanes Aguilar


ARRAYS DE REGISTROS

Los registros simples se utilizan raramente por si mismos. En general se agrupan en conjuntos conocidos como arrays de registros. Por ejemplo, si se dispone un registro que contiene los datos relativos a articulos de un almacén y si el inventario dispone de 100 artículos y se desean procesar adecuadamente se puede utilizar un array de 100 elementos; mediante la declaración siguiente se definen los elementos del conjunto.


Type
Itemstock = record
Nombre : string[30];
Numero : integer;
Precio : real;
End;

lista = array [ 1..100] of itemstock;
Var
inventario : lista;

Con estas declaraciones se puede acceder a cada registro a través de los campos de cada registro. Así, por ejemplo, la lista completa del inventario se puede cargar con el siguiente segmento del programa:

For i : = 1 to 100 do
Begin
Writeln(‘ introduzca el nombre’);
Readln (iventario[i].nombre);
Writeln(‘ introduzca número de stock’);
Readln (inventario[i].número);
Writeln(‘ introduzca precio);
Readln (invetario[i].precio);
End;

El proceso de registros del array es similar al tratamiento, ya conocido, de elementos de un array con la peculiaridad de ser tipos compuestos (registros) en lugar de ser tipos simples.
Elemplo: Inventario [ 2 ]. Nombre