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:

image258.jpg

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

Politica de Privacidad