PDF de programación - Clase Práctica de Apareo

Imágen de pdf Clase Práctica de Apareo

Clase Práctica de Apareográfica de visualizaciones

Publicado el 26 de Abril del 2020
381 visualizaciones desde el 26 de Abril del 2020
161,7 KB
16 paginas
Creado hace 13a (28/10/2010)
¡Programación I!

Clase Práctica de Apareo

Temas a tratar

1.- Enunciado del problema

2.- Especificar el tipo de caso de apareo

3.- Diagrama de flujo con la solución

4.- Codificación en Pascal

5.- Fin

Enunciado del problema

A partir de los datos de los alumnos contenidos en un archivo MAESTRO y los

datos de NOVEDADES con la materia aprobada por cada alumno que ha
aprobado, cuyos diseños son los siguientes:

Diseño Archivo Maestro. Un registro por cada alumno.

NLU

AyN

CMA

FECHA

Diseño Archivo Novedad. Un o ningún registro por alumno.

NLU

CMAT

FECHA

Se desea:

A) Actualizar la fecha de aprobación de la ultima asignatura

B) Actualizar la cantidad de asignaturas aprobadas

C) Listar los datos y la asignatura aprobada

Especificar el caso de apareo

En el Maestro están todos ?

Puede faltar registros en el Maestro?

En la Novedad, viene un registro por cada
Maestro?

En la Novedad, viene uno, varios o ningún registro por
cada Maestro?

En la Novedad, viene uno o ningún registro por cada
Maestro?

SI

NO

NO

NO

SI

Diagrama de flujo

Subrutinas

Apareo

INICIO

Principio_Programa

regmaestro.NLU

=

999

regnovedad.NLU

=

999

Fin_Programa

Fin

Codificación

Principio_Programa

Titulo

Leer_Maestro

Leer_Maestro

LEER

EoF

Regmaestro.NLU = 999

Leer_Novedad

Leer_Novedad

Titulo

“Info. de actualización de
materias aprobadas por los
alumnos”

“NLU Ape y Nom Cod.
Materia Fecha de Aprobación”

LEER

EoF

Regnovedad.NLU = 999

Codificación

Grabar_MaeNue
(Tal Cual Maestro)

Leer_Maestro

Subrutinas

MCD

Leer_Maestro

Leer_Novedad

Apareo

regmaestro.NLU

=

regnovedad.NLU

Codificación

Rutinas MCD y Grabar_MaeNue

MCD

Grabar_MaeNue

regmaestro.NLU, “ ”, regmaestro.AyN, “ ”,
regnovedad.CMAT, “ ”, regnovedad.FECHA

regmaestro.CMA = regmaestro.CMA +1

regnuevo.NLU = regmaestro.NLU
regnuevo.AyN = regmaestro.AyN
regnuevo.CMA = regmaestro.CMA
regnuevo.FECHA = regmaestro.FECHA

regmaestro.FECHA = regnovedad.FECHA

GRABAR

Grabar_MaeNu
e

Codificación

Fin_Programa

Close
Maestro

Close
Novedad

Codificación

Codificación en Pascal de la rutina Principio_programa (DF)

begin

clrscr;
Principio_Programa;
while regmaestro.nlu < > 999 .and. regnovedad.nlu < > 999 do

begin

Apareo;

end;

Fin_Programa;

end.

Diag. Flujo

Codificación en Pascal de la rutina Principio_programa (DF) Continua….

Procedure Titulo;
begin

writeln('“Info. de actualización de materias aprobadas por los alumnos”);
writeln('““NLU Ape y Nom Cod. Materia Fecha de Aprobación””);

end;

Procedure Leer_Maestro;
begin

if eof(maestro) then

regmaestro.nlu:= 999
else
read(maestro, regmaestro);

end;

Procedure Leer_Novedad;
begin

if eof(novedad) then

regnovedad.nlu:= 999
else
read (novedad, regnovedad);

end;

Diag. Flujo

Codificación en Pascal de la rutina Principio_programa (DF) ..Continua

Procedure Apareo;
begin

while regmaestro.nlu = regnovedad.nlu do

begin

MCD
Leer_Maestro
Leer_Novedad

end;

Grabar_MaeNue;
Leer_Maestro;

end;

Diag. Flujo

Codificación en Pascal de la rutina Principio_programa (DF) ..Continua

Procedure MCD;
begin

write(regmaestro.NLU, “ ”, regmaestro.AyN, “ ”, regnovedad.CMAT, “ ”);
writenl(regnovedad.FECHA);
regmaestro.CMA := regmaestro.CMA + 1;
regmaestro.FECHA := regnovedad.FECHA;
Grabar_MaeNue;

end;

Procedure Grabar_MaeNue;
begin

regnuevo.NLU = regmaestro.NLU;
regnuevo.AyN = regmaestro.AyN;
regnuevo.CMA = regmaestro.CMA;
regnuevo.FECHA = regmaestro.FECHA;
write (nuevo, regnuevo);

end;

Diag. Flujo

Codificación en Pascal de la rutina Principio_programa (DF) ..Continua

Procedure Fin_Programa;

begin

close(maestro);
close(novedad);
close(nuevo);

end;

Diag. Flujo

Programa completo en Pascal

Despliegue la codificación completa

FIN

Intentamos resolver el resto de los problemas
de la serie de Apareo de Archivos …..

S U E R T E. . .
  • Links de descarga
http://lwp-l.com/pdf17569

Comentarios de: Clase Práctica de Apareo (0)


No hay comentarios
 

Comentar...

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad