Advertisement
Guest User

Ejercicio 2. Práctica 11

a guest
Nov 26th, 2014
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.62 KB | None | 0 0
  1. progrm EJ2P11;
  2.  
  3. uses crt;
  4.  
  5. type
  6.         Reg_Cliente=record
  7.                 NumCliente:word;
  8.                 nombre:string[30];
  9.                 categoria:char;
  10.                 direccion:string[40];
  11.                 fechaDeAlta:string[8]:
  12.                 end;
  13.  
  14.         T_Arch=file of Reg_Cliente;
  15.  
  16. var
  17.         arch:T_Arch;
  18.  
  19. function Categoria(num:word):char;
  20.  
  21.         var
  22.                 registro:Reg_Cliente;
  23.                 cat:char;
  24.  
  25.         begin
  26.                 seek(arch,num-1);
  27.                 read(arch,registro);
  28.                 cat:=registro.categoria;
  29.                 categoria:=cat;
  30.         end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement