UNIDAD 5: PROGRAMACION PASCAL REGISTROS Y ARCHIVOS SECUENCIALES

TEMA 5: CREACION ARCHIVOS SECUENCIAL PASCAL

En este proceso se pretende solamente crear un archivo secuencial en disco.

Prog16.pas

program prog16;
uses crt;
type
alumnos = RECORD
clave:integer;
nombre:string[30];
estatura:real;
end;
var
alumno:alumnos;
archivo: file of alumnos;
BEGIN
clrscr;
assign(archivo,'c:\prog\alumnos.dat');
rewrite(archivo);
close(archivo);
(* avisando *)
write('archivo creado');
readln;
END.

CORRIDA:

image208.jpg

Recordar que el registro que se uso para crear el archivo se debera usar siempre y con el mismo orden cuando se acceda al archivo con los procesos u operaciones anteriormente mencionados.

Primero creamos una variable registro de tipo normal.

Luego se crea una variable VARARCHIVO de tipo ( file of) REGISTRO, esta variable se estara usando mucho a lo largo de los programas.

Pueden pensar de esta variable como un ALIAS al archivo en disco, es decir en el disco duro quedara grabado an algun lugar un archivo llamado C:\FOLDE\DIRECTORIO\DATOS.DAT pero pascal ocupara una manera mas recortada de estarlo manejando, para esto se usa la VARARCHIVO, es decir a juan francisco lopez montejo se le conoce mejor como pancho.

Las instrucciones nuevas a usar son:

A) ASSIGN(VARARCHIVO,RUTA DIRECTORIO NOMARCHIVO), esta instruccion asigna la variable de archivo, al archivo real en disco, es decir VARARCHIVO quedara cargada con la direccion o ruta y el nombre del archivo en disco.

B) REWRITE(VARARCHIVO)

Esta instruccion crea y abre un archivo fisico en disco, si el archivo ya existe rewrite eliminara todo lo que tenga y el archivo quedara listo para el proceso de escribirle o grabarle registros.

C) CLOSE(VARARCHIVO) ultimo proceso que debe incluir todo programa que maneje archivos en pascal, esta instruccion le indica al compilador que cierre el archivo fisico en disco, esto lo hace agregandole una marca de fin de archivo (EOF) al final del archivo.

Es importante siempre cerrar el archivo fisico en el disco o van a tener una situacion de ABORT,RETRY,IGNORE muy divertida.

Politica de Privacidad