A continuación se muestra el pseudocódigo para realizar la gestión de archivos indexados de productos. Dicha gestión contemplará altas, bajas, modificaciones, así como la consulta de los registros.
ALTAS:
inicio
abrir archivo para añadir productos
mientras no haya más registros hacer
leer producto del registro
escribir (grabar) producto
fin_mientras
cerrar archivo
fin
BAJAS:
inicio
abrir archivo original (maestro) para lectura de productos
abrir archivo auxiliar para creación
leer registro del maestro
mientras registro sea diferente del fin del archivo hacer
escribir 'Baja (Si/No)'
leer respuesta
si respuesta = 'No'
entonces
escribir registro en archivo auxiliar
fin_si
leer registro
fin_mientras
cerrar archivo maestro
cerrar archivo auxiliar
borrar archivo maestro
cambiar nombre del archivo auxiliar por nombre de maestro
fin
MODIFICACIONES:
inicio
abrir archivo maestro para lectura de productos
abrir archivo auxiliar para creación
leer registro del maestro
mientras registro del maestro sea diferente del fin del archivo hacer
escribir 'Modificar (Si/No)'
leer respuesta
si respuesta = 'Si'
entonces
llamar_a subprograma de modificación
fin_si
escribir registro (producto) en archivo auxiliar
fin_mientras
cerrar archivo maestro
cerrar archivo auxiliar
borrar archivo maestro
cambiar nombre del archivo auxiliar por nombre de maestro
fin
CONSULTA:
Consulta de todos los registros.
inicio
abrir archivo para lectura de productos
leer el registro
N<---1
mientras registro sea diferente del fin del archivo hacer
escribir registro (producto)
leer registro (producto)
N<---N+1
fin_mientras
(Número de registros del archivo, N-1)
escribir ('número de registro', archivo N-1)
escribir 'número de producto', N-1
cerrar archivo
fin
Búsqueda de un determinado registro o producto (con campo clave x).
mientras registro sea diferente del fin del archivo hacer
si registro (campo x) = registro (campo leído)
entonces
escribir 'el producto buscado existe'
fin (fin del programa)
sino
leer producto
N<---N+1
fin_si
fin_mientras
escribir 'el producto buscado no existe en el archivo'
