Sin ttulo de diapositiva

1
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados
Registros ProfEridan Otto
2
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados

• TEMARIO
• Tipos de datos Estruturados
• Registros
• Ejercicios

3
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros

• Introducción
• En situaciones reales, a veces es necesario crear
  un tipo de datos para manejar información con una
  estructura interna, heterogénea. El dato se
  compone de campos con tipos de datos diferentes.
• Ejemplo
• Una empresa puede querer manejar la información
  de un empleado
• Ficha_empleado
• RUT
• Nombre
• Edad
• SueldoBruto
• Donde un empleado queda caracterizado por una
  serie de datos de tipo diferente.
• En PASCAL este tipo de datos se llama RECORD
  (registro). Se define un nombre para el registro
  y cada campo que lo compone, así como el tipo de
  datos de cada uno.

4
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros
Sintaxis TYPE ltidentificador nombre
registrogt RECORD
ltidentificador campo 1gtlttipo de datogt
ltidentificador campo 2gtlttipo de
datogt .....
.....
ltidentificador campo ngtlttipo de datogt
END Luego en la sección VAR deben
definirse las variables de tipo registro. Para el
Ejemplo TYPE Ficha_empleado RECORD
RUT_e INTEGER RUT_dvCHAR nombreString60
edad INTEGER sueldoBruto REAL END VAR
emp1,emp2Ficha_empleado Para acceder aun
campo de una variable de tipo registro se debe
seguir la sintaxis ltidentificador
de la variablegt.ltidentificador del campogt
5
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros
Para el ejemplo anterior, Se asigna el campo
nombre y sueldo a la variables de tipo
Ficha_empleado ......... emp1.nombreJuan
Perez writeln(emp1.nombre) despliega Juan
Perez en pantalla emp2.nombrePedro
Ramirez writeln(emp2.nombre) despliega
Pedro Ramirez en pantalla .....
emp1.sueldoBruto 500000 emp2.sueldoBruto
400000 IF emp1.sueldoBruto gt
emp2.sueldoBruto THEN
writeln(emp1.nombre, tiene sueldo más alto)
ELSE writeln(emp2.nombre, tiene
sueldo más alto o igual a emp1.nombre) ......
En este caso se despliega Juan Perez tiene sueldo
más alto
6
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros
Para el ejemplo anterior, revisar si un
empleado es igual a otro. No se puede comparar
registros completos. Ejercicio 1 Desarrolle una
función que devuelva verdadero si dos empleados
son iguales, falso en caso contrario Function
comparaemp(e1,e2 ficha_empleado)BOOLEAN BEGIN
comparaemp (e1.RUT_e e2.RUT_e) AND
(e1.RUT_dv e1.RUT_dv) AND
(e1.nombre e2.nombre) AND
(e1.edade2.edad) AND
(e1.sueldoBrutoe2.sueldoBruto) END
7
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros
Sentencia WITH Cuando se trabaja con registros,
hay ocasiones en que el acceso a los campos a
suele ser tediosa .  Para solucionar este
inconveniente, el lenguaje Pascal provee una
sentencia with que permite que ununa variable de
tipo registro sea nombrada una vez, y luego sus
campos sean accedido directamente Sintaxis WITH
ltidentificador variable tipo registrogt DO BEGIN
basta referenciar el nombre del
campo END Ejercicio2 Desarrolle un
procedimiento que permita leer registros de tipo
ficha empleados. PROCEDURE leeempl(VAR emp
ficha_empleados) BEGIN WITH emp DO
BEGIN READLN(RUT_e)
READLN(RUT_dv) READLN( nombre) READLN( edad)
READLN( sueldoBruto) END END
8
Programación de Computadores Lenguaje Pascal
Sesión 16 Tipos de datos Estruturados Registros
Registros jerárquicos Los campos de los registros
pueden ser de cualquier tipo definido por el
usuario, incluso también registros. Un registro
con uno o más campos de tipo registro se denomina
registro jerárquico. Ejemplo Type Fecha Record
Dia 1..31 Mes 1..12 Anno
Integer    End   Info Record
Nombre String30 CumpleAnnos
Fecha End Var Persona Info Si la pesona
nació el 1/5/1979, entonces, este dato se
asigna .... Persona.CumpleAnnos.Dia1 Persona.C
umpleAnnos.Dia5 Persona.CumpleAnnos.Anno1979

9
Fin Clase 16