tp_ejemplo/tda_gral.pas

   1 unit tda_gral;\r
   2 \r
   3 { funciones y datos y tipo generales de los TDA de almacenamiento\r
   4   Basado en el codigo de la catedra, modificado para que compile.\r
   5   Los tipos de datos de los elementos de Persona fueron reemplazados\r
   6   por los que se usan en el TP.\r
   7 }\r
   8 \r
   9 \r
  10 \r
  11 interface\r
  12 \r
  13 \r
  14 \r
  15 { aca se define el famoso tipo_elem }\r
  16 \r
  17 type\r
  18 \r
  19     TipoDNI = string[8];\r
  20 \r
  21     Persona = record\r
  22 \r
  23             DNI : TipoDNI;\r
  24 \r
  25             Nombre : string[40];\r
  26 \r
  27 {Apellido no es necesario para el TP}\r
  28 {            Apellido : ShortString; }\r
  29 \r
  30             end;\r
  31 \r
  32 \r
  33 \r
  34     Tipo_Clave = TipoDNI;\r
  35 \r
  36     Tipo_Elem = Persona;\r
  37 \r
  38 \r
  39 \r
  40 { esta funcion devuelve la clave de un elemento almacenado }\r
  41 \r
  42 { PRE : ninguna }\r
  43 \r
  44 { POST: devuelve la clave de un elemento E }\r
  45 \r
  46 function Devolver_Clave_Elem( E: Tipo_Elem): Tipo_Clave;\r
  47 \r
  48 \r
  49 \r
  50 { este procedimiento se usa en recorridos e imprime los datos del elemento }\r
  51 \r
  52 { PRE : ninguna }\r
  53 \r
  54 { POST: se imprimieron los datos  }\r
  55 \r
  56 procedure Procesar_Elem_Recorrido ( var e: Tipo_Elem);\r
  57 \r
  58 \r
  59 \r
  60 { compara dos elementos completos para ver si cumplen con el criterio o no }\r
  61 \r
  62 FUNCTION        Comparar_Elementos( a: Tipo_Elem; b: Tipo_Elem ): boolean;\r
  63 \r
  64 \r
  65 \r
  66 implementation\r
  67 \r
  68 \r
  69 \r
  70 { esta funcion devuelve la clave de un elemento almacenado }\r
  71 \r
  72 function Devolver_Clave_Elem( E: Tipo_Elem): Tipo_Clave;\r
  73 \r
  74 begin\r
  75 \r
  76      Devolver_Clave_Elem := E.DNI;\r
  77 \r
  78 end;\r
  79 \r
  80 \r
  81 \r
  82 { este procedimiento se usa en recorridos e imprime los datos del elemento }\r
  83 \r
  84 procedure Procesar_Elem_Recorrido ( var e: Tipo_Elem);\r
  85 \r
  86 BEGIN\r
  87 \r
  88 \r
  89 \r
  90 END;\r
  91 \r
  92 \r
  93 \r
  94 { compara dos elementos completos para ver si cumplen con el criterio o no }\r
  95 \r
  96 FUNCTION        Comparar_elementos( a: Tipo_Elem; b: Tipo_Elem ): boolean;\r
  97 \r
  98 BEGIN\r
  99 \r
 100         IF a.DNI = b.DNI\r
 101 \r
 102         THEN\r
 103 \r
 104                 Comparar_Elementos := true\r
 105 \r
 106         ELSE \r
 107 \r
 108                 Comparar_Elementos := false;\r
 109 \r
 110 END;\r
 111 \r
 112 \r
 113 \r
 114 end.\r
 115 \r