UNIDAD 6: PROGRAMACION PASCAL REGISTROS Y ARCHIVOS DIRECTOS

TEMA 4: PROGRAMACION PASCAL FILTROS CONDICIONES ARCHIVOS

Otro problema similar al anterior es el de filtros o condiciones, es decir en muchas ocasiones es necesario obtener informacion acerca de un subconjunto de renglones de el archivo.

Por ejemplo todos los estudiantes que sean mayores de 17 anos, o todos los clientes que sean de Tijuana, etc. a esto le llamamos filtros o condiciones.

Tambien se resuelve de manera similar a los de archivos secuenciales es decir usando un ciclo de lectura de todo el archivo e ir desplegando todos los registros que cumplan la condicion.

Prog28.pas

program prog28;

uses crt;

type

alumnos = RECORD

clave:integer;

nombre:string[30];

edad:integer;

status:char;

end;

var

alumno:alumnos;

archivo: file of alumnos;

edad1 : integer;

BEGIN

clrscr;

(* creando y abriendo el archivo *)

assign(archivo,'c:\prog\alumnos.dat');

reset(archivo);

(* capturando condicion *)

writeln('edad >= ');readln(edad1);

(* ciclo de lectura y despliegue registro *)

while not(EOF(archivo)) do

begin

read(archivo,alumno);

(* revisando status registro y condicion tambien *)

if alumno.status = 'A' then

if alumno.edad >= edad1 then

begin

write('clave : ');writeln(alumno.clave);

write('nombre : ');writeln(alumno.nombre);

write('edad : ');writeln(alumno.edad);

end;

end;

(* cerrando archivo *)

close(archivo);

write('<enter>para continuar');readln;

END.

corrida:

Como se observa es un problema y una solucion similar al tema anterior de busquedas.

PROGRAMACION PASCAL

HACERLES PROGRAMAS DE FILTRADO A LOS ARCHIVOS ANTERIORES