8.1 Organización de Archivos 183
sino
escribir (2 , a ) ! graba el registro en AUXI.DAT
fin si
fin mientras
Si (esta = ‘N’) entonces
escribir ("No se encontró ese Legajo ", lega )
fin si
cerrar ( 1 )
cerrar ( 2 )
borrar (DATOS.DAT)
renombrar (AUXI.DAT como DATOS.DAT)
FIN Bajas
- MODIFICACIONES
Hacer un algoritmo que permita modificar (MODIFICACIONES ) registros del archivo
DATOS.DAT, cuyos registros fueron descriptos en el ejemplo anterior. Hacemos el algoritmo
para una sola modificación.
Algoritmo Modificar
Tipo registro alumno
carácter(*5)legajo
tipo registro apeynom
carácter(*20) apellido
carácter(*25) nombre
fin
entero notas(5)
tipo registro domicilio
carácter(*15) calle
entero numero
carácter(*20) ciudad
fin
fin
Tipo (alumno) a
carácter esta
entero i
cadena(*5) lega
Inicio
abrir ( 11 , “C:\Informatica I \DATOS.DAT”, acción =”lectura” )
abrir ( 12 , “C:\Informatica I \AUX.DAT”, acción= “escritura” )
esta ← ‘N’;
escribir ( “Legajo : ” )
leer ( lega )
Repetir mientras ( NO( EOF ( 11 ) )) ! ahora busca si este registro ya está grabado
leer ( 11 , a )