Organización de Archivos - Proyecto Final - Pascal

UNIVERSIDAD VERACRUZANA
FACULTAD DE ESTADÍSTICA E INFORMÁTICA
XALAPA, VERACRUZ

EXPERIENCIA EDUCATIVA
ORGANIZACIÓN DE ARCHIVOS

Organización de Archivos
Proyecto Final

Martes
Nov 13, 2012

Tabla de contenido
OBJETIVO ............................................................................................................................................. 3
DESCRIPCIÓN DELPROYECTO ............................................................................................................. 3
UNIDAD DE ACCESO AL ARCHIVO DE REGISTROS ............................................................................... 4
UNIDAD DE ACCESO AL ÁRBOL BINARIO DE BÚSQUEDA (ABB) .......................................................... 7
PROGRAMA PRINCIPAL..................................................................................................................... 11
BIBLIOGRAFÍA Y OTROS RECURSOS ................................................................................................... 14

OBJETIVO
El objetivo del presente trabajo es el utilizar las operaciones básicas de un Árbol Binario de
Búsqueda (ABB) implementando su uso en la organizaciónindizada para con archivos de registros.

DESCRIPCIÓN DEL PROYECTO
Para poder aplicar las operaciones básicas del ABB, se debe crear un archivo que contenga
registros de tipo estudiante, los cuales consisten en cuatro elementos: matrícula, nombre,
promedio y créditos. La matrícula formará parte del campo llave de los registros; interactuará
principalmente con el programa ‘main’, así como con otrasdos unidades: la unidad de acceso al
archivo de registros, y la unidad de acceso al ABB.
El programa principal hará uso de las dos unidades antes descritas y contendrá un menú de
opciones con el cual el usuario va a interactuar.
Cada vez que el programa sea ejecutado, será el encargado de verificar primeramente que el
archivo de registros exista, o en caso contrario, que lo cree. Además,creará el índice (abb) siempre
que se ejecute el programa.
A continuación se presentan los códigos del programa principal, así como también el de la unidad
de acceso al archivo de registros y el de la unidad de acceso al Árbol Binario de Búsqueda, en
donde se describe brevemente cada uno de los procedimientos y funciones que lo integran y
comentarios del código.


UNIDAD DE ACCESO AL ARCHIVODE REGISTROS
unit ArchReg;
interface
uses ABB;
type estudiante=record
matricula:integer;
nombre:string;
promedio:real;
creditos:integer;
end;
procedure creaIndice(arch:string; var p:apNodo);
procedure agregaReg(arch:string; e:estudiante; var p:apNodo);
procedure consultaReg(arch:string; llave:integer; p:apNodo);
procedure eliminarReg(arch:string; llave:integer; p:apNodo);implementation
//PROCEDIMIENTO
//PROCEDIMIENTO QUE CREA EL ÍNDICE (ÁRBOL ABB). HACE UN RECORRIDO SECUENCIAL
//SOBRE EL ARCHIVO; LEE UNO A UNO LOS REGISTROS PARA EXTRAER LÑA MATRÍCULA Y
//DETERMINAR LA DIRECCIÓN DEL ARCHIVO DONDE SE ENCUENTRA ALMACENADA; AGREGA
//UN NODO EN EL ÁRBOL PARA CADA MATRÍCULA DEL ARCHIVO. (LLAMA AL PROCEDIMIENTO
//QUE AGREGA EN EL ABB).
procedure creaIndice(arch:string; varp:apNodo);
var f: file of estudiante;
e:estudiante;
d:integer;
begin
assign(f,arch);
reset(f);
d:=0;
while not eof(f) do
begin
read(f,e);
agrega(e.matricula,d,p);
d:=d+1;
end;
close(f);
end;
//PROCEDIMIENTO
//PROCEDIMIENTO QUE AGREGA UN NUEVO REGISTRO AL FINAL DEL ARCHIVO Y DESPUÉS
//AGREGA UN NODO EN EL ÁRBOL CON LOS DATOS 'MATRÍCULA' Y 'DIRECCIÓN' QUE SE

//ACABAN DE AGREGAR.(LLAMA AL PROCEDIMIENTO QUE AGREGA EN EL ABB);
procedure agregaReg(arch:string; e:estudiante; var p:apNodo);
var f:file of estudiante;
d:integer;
begin
assign(f,arch);
reset(f);
d:=0;
d:=filesize(f)+1;
seek(f,d);
write(f,e);
agrega(e.matricula,d,p);
close(f);
writeln('Presione una tecla para continuar.');
end;
//PROCEDIMIENTO
//PROCEDIMIENTO QUE CONSULTA UN REGISTRO DEL ARCHIVO...