8.1 Organización de Archivos 181 Algoritmo Altas 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 rta , esta carácter(*5) lega Inicio abrir (22, “C:\informatica I \DATOS.DAT”, acción=”lectura”) !DATOS. DAT es el nombre del archivo en disco !22 es el número de referencia al archivo en el programa rta ← x27;Sx27; Repetir mientras( rta = x27;Sx27;) ! Este repetir mientras es para permitir hacer varias altas esta ← ‘N’ escribir ( “Legajo : ” ) leer ( lega ) Repetir mientras (NO ( EOF(22) y esta = ‘N’)) ! busca si este registro ya está grabado leer ( 22 , a ) Si ( a.legajo = lega) entonces escribir ( “ Ya está este Legajo – Alta rechazada” ) esta ← x27;Sx27; fin si fin mientras Si (esta = ‘N’) entonces escribir ( “Apellido: ” ) ! lo vamos a grabar al final del archivo, para ello será !necesario cerrarlo como “lectura” leer ( a . apeynom . apellido ) ! abrirlo como “agregado” escribir ( “Nombre: ” ) leer ( a . apeynom . nombre ) escribir (“Ingrese las cinco notas”) Repetir para i ←1, 5 leer ( a . notas ( i ) ) fin para escribir (“Ingrese Calle Nro. Ciudad”) leer ( a . domicilio. calle , a . domicilio . numero , a . domicilio . ciudad ) a . legajo ← lega cerrar (22) abrir (22,”C:\ informática I \ DATOS.DAT” , acción= “agregado”)