Son Archivos Secuenciales
Publicado por Eric (2 intervenciones) el 10/06/2007 17:36:46
Espero que ahora si me entiendan....
Se trata de un archivo secuencial, en donde se ingresan registros con su clave respectiva
DATOS: Es una agenda
se crea una estructura que se llama contacto y tiene los siguientes campos: clave, nombre, direcion y telefono
mas o menos debe ser asi:
-----------------------------------------------------------------------------------------------------------------------
abrir archivo maestro
opcion=" "
mientras (opcion<>'n')
Lee "Clave a dar de alta", clave
Si clave>EOF() entonces // EOF() se entiende que es el fin del archivo
para i=EOF()+1 hasta clave hacer
clave='*'
nombre='*'
direccion='*'
telefono='*'
guardar archivo maestro
fin para
fin si
si clave<>'*' entonces
visualizar "La clave ya existe"
si no
Lee "Nombre del contacto ", contacto.nombre
Lee "Direccion ", contacto.direccion
Lee "Telefono ", contacto.telefono
guardar archivo maestro
fin si
Lee "Desea dar mas altas s/n",opcion
fin mientras
cerrar archivo maestro
---------------------------------------------------------------------------------------------------------------------
Espero me haya dado a entender y me puedan ayudar
Muchas gracias
Se trata de un archivo secuencial, en donde se ingresan registros con su clave respectiva
DATOS: Es una agenda
se crea una estructura que se llama contacto y tiene los siguientes campos: clave, nombre, direcion y telefono
mas o menos debe ser asi:
-----------------------------------------------------------------------------------------------------------------------
abrir archivo maestro
opcion=" "
mientras (opcion<>'n')
Lee "Clave a dar de alta", clave
Si clave>EOF() entonces // EOF() se entiende que es el fin del archivo
para i=EOF()+1 hasta clave hacer
clave='*'
nombre='*'
direccion='*'
telefono='*'
guardar archivo maestro
fin para
fin si
si clave<>'*' entonces
visualizar "La clave ya existe"
si no
Lee "Nombre del contacto ", contacto.nombre
Lee "Direccion ", contacto.direccion
Lee "Telefono ", contacto.telefono
guardar archivo maestro
fin si
Lee "Desea dar mas altas s/n",opcion
fin mientras
cerrar archivo maestro
---------------------------------------------------------------------------------------------------------------------
Espero me haya dado a entender y me puedan ayudar
Muchas gracias
Valora esta pregunta


0