Programacion 1

Introducción.

Hasta antes de la materia de Administración de Archivos, muchas de las aplicaciones que los alumnos programado han ido usando la memoria principal o memoria RAM como único medio de almacenamiento (usando variables, arreglos o estructuras de datos mas complejas), con el inconveniente que esto representa: la volatilidad de la memoria RAM; es decir, si se apaga la computadora sepierden los datos. Además, algunas aplicaciones exigen transportar los datos de una computadora a otra. De ahí surge la necesidad de almacenar dichos datos de forma permanente que permita retenerlos en ciertos dispositivos de almacenamiento secundario por un período de tiempo largo sin necesidad de suministrarles energía, de tal forma que permitan transportarlos y utilizarlos en otro equipocomputacional.
Existe una estrecha relación entre la memoria principal, el microprocesador y los dispositivos de almacenamiento secundario ya que el procesamiento que realiza una computadora es tarea absoluta del microprocesador en conjunción con la memoria principal; es decir, los dispositivos de almacenamiento secundario (diskettes, discos duros, CDs, flash drives, etc.) no procesan datos, sólo losalmacenan. En estos dispositivos sólo se reflejan los datos previamente procesados y funcionan exclusivamente como una bodega. Esto repercute de manera significativa al momento de programar archivos, ya que para hacerle modificaciones a los datos de un registro previamente almacenado es necesario primero “cargarlo” en la memoria principal, es decir, localizar el registro en el archivo y leerlo paracolocar sus datos en la memoria RAM, ahí modificarlo y posteriormente grabarlo en la misma posición en la que se encontraba, sin embargo estas operaciones no se realizan directamente, sino a través de la unidad aritmética-lógica, la unidad de control y los registros del microprocesador.








Universidad Nacional Experimental de Guayana
Carrera: Ingeniería en Informática
Asignatura:Programación I
Profesor: Nelson Inojosa















Código Fuente ejercicio Nº 3
Program efectos_estadisticos;
Uses Crt;
Const totalmuestreo = 5;
Type datos = record
nombre: String[25];
nacion, region: String[11];
edad: integer;
altura: real;
sexo, ColOjos, colPelo, colPiel: Char
end;
estadistica = array [1..totalmuestreo] of datos;
Var Grupo1: Estadistica;nom: String[25];
cont, index: integer;
Begin
ClrScr;
index := 1;
repeat

{Repetir hasta que se introduzca un nombre en blanco:}

with grupo1[index] do
begin

write('Nombre (',index,'): ');
readln(nom);
{Leer el nombre.}
if not(nom = '') then
{Si no se introdujo un nombre vacío, entonces leer el resto de datos.}
begin
nombre := nom;
write('País de origen: ');readln(nacion);
write('región: ');
readln(region);
write('Sexo [F/M]: ');
repeat
sexo := upcase(readkey)
until sexo in ['F','M'];
{restringe la entrada a "F" o "M".}
writeln(sexo);
writeln(‘Edad [xx años]:’);
readln(Edad);
writeln(‘cedula ‘)
readln (cedula)
write(‘Altura [x.xx metros]: ‘);
readln(altura);
write(‘Color de ojos [Verde, Ambar, Marron, Negro, Gris]: ‘);
repeat
colojos :=upcase(readkey)

until colojos in [‘V’,’A’,’M’,’N’,’G’];
writeln(colojos);
write(‘Color de piel [Negro, Blanco, Moreno]: ‘)
repeat
colpiel := upcase(readkey)
until colpiel in [‘N’,’B’,’M’];
writeln(colpiel);
write(‘Color de pelo [Negro, Blanco, Castaño, Rojo, Amarillo]: ‘);
repeat
colpelo := upcase(readkey)
until colpelo in [‘N’,’B’,’C’,’R’,’A’];
writeln(colpelo);
writeln;
index :=index + 1
{Se incrementa el número de muestras.}
end
end
until (index >= totalmuestreo) or (nom = ‘’);
ClrScr;
write(‘NOMBRE’:25,’NACION’:12,’REGION’:12,’ EDAD’,’ SEXO’,’ ALT.’);
writeln(‘ OJOS’,’ PIEL’,’ PELO’);
for cont := 1 to 5 do write(‘Í’);
writeln;
for cont := 1 to index do

{Presentar los resultados por pantalla.}
with grupo1[cont] do
{Cada elemento del array es un...