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 servir
Se tiene el siguiente archivo ordenado por el campo sector de una empresa:
Nombre externo c:empleadosregis.dat
Legajo string[4]
Apellido string[30]
Sector string[10]
Estado char
se pide la cantidad de empleados en cada sector
program cortedecontrol;
type
treg=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