Habril

Hola! en estos dias estuve buscando un buen ejemplo (q no encontré) de corte de control en archivos binarios. El corte de control es bastante díficil de usar en archivos para mi que recién empiezo.Está en lenguaje Pascal que es bastante básico y es el que nos enseñaron a usar en la facu.Capaz que no es útil para nadie, pero yo confío que a alguno que otro, cuando busque en Taringa acerca de programar con archivos binarios le va a servirSe tiene el siguiente archivo ordenado por el campo sector de una empresa:Nombre externo c:empleadosregis.datLegajo string[4]Apellido string[30]Sector string[10]Estado charse pide la cantidad de empleados en cada sector program cortedecontrol;typetreg=record      legajo:string[4];      apellido:string[30];      sector:string[10];      estado:char;      end; tarchi=file of treg;var vcontrol:string[10]; z:integer; archivo:tarchi; datos:treg;begin assign('c:empleadosregis.dat',archivo); reset(archivo); [color=darkred]if [/color]not eof(archivo) then     read(archivo,datos) else  vcontrol:=-1; [color=darkred]while[/color] datos.legajo <> -1 do   begin    vcontrol:=datos.sector;    z:=0;    [color=darkred]while[/color] (datos.legajo<> -1) and (vcontrol = datos.sector) do     begin      z:=z+1;      [color=darkred]if[/color] not eof(archi) then      read(archivo,datos)      else      datos.legajo:=-1;     end;   writeln('En el sector:',[color=blue]vcontrol[/color],'trabajan',[color=blue][/color]);   end;  close(archivo); end. El algoritmo lo encontré en hojas de la carpeta, osea que está chequeado porque lo hicimos en clase.Repito, es para ese loco loco estudiante de sistemas informaticos o algo q se le parezca que tiene la materia Algoritmo y Estrucutura de Datos, donde se pone a programar con Pascal y necesita un ejemplo de un Corte de Control en Archivos Binarios