Import inicial despu├ęs del "/var incident". :(
[z.facultad/75.41/tabla.git] / 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 = longint;\r
9     T_GRAL_Persona = record\r
10                         dni : T_GRAL_DNI;\r
11                         nombre : String[20];\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 end.\r