gral.pas

   1 unit GRAL;\r
   2 { funciones y datos y tipo generales de los TDA de almacenamiento }\r
   3 \r
   4 interface\r
   5 \r
   6 { aca se define el famoso tipo_elem }\r
   7 type\r
   8     T_GRAL_DNI = string[8];\r
   9     T_GRAL_Persona = record\r
  10                         dni : T_GRAL_DNI;\r
  11                         nombre : String[40];\r
  12                         end;\r
  13 \r
  14     T_CLAVE = T_GRAL_DNI;\r
  15     T_REGISTRO = T_GRAL_Persona;\r
  16 \r
  17 { esta funcion devuelve la clave de un elemento almacenado }\r
  18 { PRE : ninguna }\r
  19 { POST: devuelve la clave de un elemento E }\r
  20 function T_GRAL_Devolver_Clave_Elem( r: T_REGISTRO): T_CLAVE;\r
  21 \r
  22 { este procedimiento se usa en recorridos e imprime los datos del elemento }\r
  23 { PRE : ninguna }\r
  24 { POST: se imprimieron los datos  }\r
  25 procedure T_GRAL_Procesar_Elem_Recorrido ( var r: T_REGISTRO);\r
  26 \r
  27 { compara dos elementos completos para ver si cumplen con el criterio o no }\r
  28 FUNCTION T_GRAL_Comparar_Elementos( a: T_REGISTRO; b: T_REGISTRO ): boolean;\r
  29 \r
  30 implementation\r
  31 \r
  32 { esta funcion devuelve la clave de un elemento almacenado }\r
  33 function T_GRAL_Devolver_Clave_Elem( r: T_REGISTRO): T_CLAVE;\r
  34 begin\r
  35       T_GRAL_Devolver_Clave_Elem := r.dni;\r
  36 end;\r
  37 \r
  38 { este procedimiento se usa en recorridos e imprime los datos del elemento }\r
  39 procedure T_GRAL_Procesar_Elem_Recorrido( var r: T_REGISTRO);\r
  40 BEGIN\r
  41    \r
  42 END;\r
  43 \r
  44 { compara dos elementos completos para ver si cumplen con el criterio o no }\r
  45 FUNCTION T_GRAL_Comparar_elementos( a: T_REGISTRO; b: T_REGISTRO ): boolean;\r
  46 BEGIN\r
  47    T_GRAL_Comparar_Elementos := ( a.dni = b.dni );\r
  48 END;\r
  49 \r
  50 \r
  51 end.\r