Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program EJ2P11;
- uses crt;
- type
- Reg_Cliente=record
- NumCliente:word;
- nombre:string[30];
- categoria:char;
- direccion:string[40];
- fechaDeAlta:string[8];
- end;
- T_Arch=file of Reg_Cliente;
- var
- arch:T_Arch;
- function Categoria(num:word):char;
- var
- registro:Reg_Cliente;
- cat:char;
- begin
- seek(arch,num-1);
- read(arch,registro);
- cat:=registro.categoria;
- categoria:=cat;
- end;
- procedure ModificarDireccion(num:word;dir:string[40]); {supongo el archivo abierto para escritura}
- var
- registro:Reg_Cliente;
- begin
- seek(arch,num-1);
- read(arch,registro);
- registro.direccion:=dir;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement