Registros Diego Hernndez R Diego hernandezusm cl Hoy
- Slides: 8
Registros Diego Hernández R Diego. hernandez@usm. cl
Hoy Registro Sintaxis Registro (RECORD) Ejemplo Registro (RECORD) Array Registros Ejercicios
Registro Luego de un tiempo nos damos cuenta que en muchas ocasiones necesitamos almacenar un conjunto de datos, y muchas veces estos conjuntos en muchas instancias. Imaginemos SIGA, ¿como almacenara los datos de los estudiantes? ¿Cómo tener toda la información de una persona en una variable?
Sintaxis Registro (RECORD) Type ◦ {NOMBRE_REGISTRO}= Record {Identificador 1}: {Tipo. Dato 1}; {Identificador 2}; {Tipo. Dato 2}; … End;
Ejemplo Registro (RECORD) � � � � � � Program Registros; Uses Crt; Type Informacion_Personal= Record Nombre: String[20]; Edad: Integer; Estado_Civil: String[12]; Direccion: String[30]; End; Var SIGA: Informacion_Personal; Begin SIGA. Nombre: =‘Jeams the palots'; SIGA. Edad: =26; SIGA. Estado_Civil: ='Soltero'; SIGA. Direccion: ='Vina del Mar'; writeln('Datos: ', SIGA. Nombre, ' ', SIGA. Edad, ' ', SIGA. Estado_Civil, ' ', SIGA. Direccion); Readkey End.
Array Registros � � � � � � � Program Registros; Uses Crt; Type Informacion_Personal= Record Nombre: String[20]; Edad: Integer; Estado_Civil: String[12]; Direccion: String[30]; End; UTFSM=array[1. . 10] of Informacion_Personal; Var SIGA: UTFSM; i: Integer; Begin For i: =1 to 10 do begin SIGA[i]. Nombre: =‘Jeams the palots '; SIGA[i]. Edad: =26; SIGA[i]. Estado_Civil: ='Soltero'; SIGA[i]. Direccion: ='Vina del Mar' end; For i: =1 to 10 do writeln('Datos: ', SIGA[i]. Nombre, ' ', SIGA[i]. Edad, ' ', SIGA[i]. Estado_Civil, ' ', SIGA[i]. Direccion); Readkey End.
Ejercicios Construir un registro medico Construir una Base de Datos Medica Hacer una función que retorne el promedio de edad de la Base de Datos medica Hacer una función que haga swap de la Base de Datos medica Hacer un procedimiento que muestre la base de datos por pantalla.
Fin ¿Alguna consulta?