Pascal/Turbo Pascal - APAREO

   
Vista:

APAREO

Publicado por AUGUSTO canb007@hotmail.com (1 intervención) el 10/05/2011 00:26:58
HOLA !!
Disculpen las molestias pero quisiera saber si me pueden ayudar con un programa de apareo de archivo con procedimientos EN PASCAL, me han dado este problema y se me hace dificil de entenderlo por que me venian dando de otra maneras los ejercicios por eso vengo a este medio por que los conocidos que tengo saben pero en otro lenguaje =S.
El problema dice asi:

Se posee un archivo maestro y un archivo de novedades cuyo diseño es el siguiente:

A) ARCHIVO MAESTRO: 1 registro por clave
-Clave maestro
-Nro.Sucursal
-Cliente
-Documento
-Domicilio
-Nombre y apellido

Nro. de sucursal varia de 01 a 100

B) ARCHIVO NOVEDADES: 1 o ningún registro por clave
-Clave novedad
-Nro.Sucursal
-Cliente
-Domicilio
-Nombre y apellido
-Código Novedad( 1-Alta, 2-Modificación )

Nro. de sucursal varia de 01 a 100

*Aparear los archivos a fin de detectar y contar las altas y modificaciones.
*Obtener el archivo maestro actualizado.
*Si es una modificación, se deberá actualizar el domicilio en el archivo maestro.
*Imprimir un renglón por novedad, identificando las novedades con sus respectivas leyendas en el campo Observaciones.
*Generar una Matriz(100,3) de totales de altas y modificaciones.

SALIDA IMPRESA:

SUCURSAL APELIDO Y NOMBRE DOCUMENTO DOMICILIO OBSERVACIONES
XXXXX XXXXXXX XXXXXX XXXXX XXXXX
XXXXX XXXXXXX XXXXXX XXXXX XXXXX
XXXXX XXXXXXX XXXXXX XXXXX XXXXX

TOTAL ALTAS: XXXX MODIFICACIONES XXXX

MATRIZ TOTALES
SUCURSAL ALTA MODICACIONES
XXXX XXXX XXXX
XXXX XXXX XXXX
......... .......... .........
XXXX XXXX XXXX

ESPERO QUE SE ENTIENDA Y QUE ME PUEDAN AYUDAR. GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

APAREO

Publicado por ramon (2072 intervenciones) el 10/05/2011 14:32:09
{Me faltan los detalles de las datos a registrar te paso un inicio a ver si acerté con las asignaciones}

program archivos;
uses
crt;

type
ARCHIVO_MAESTRO = record
Clave_maestro : string[10];
Nro_Sucursal : word;
Cliente : word;
Documento : word;
Domicilio : string[40];
Nombre_y_apellido : string[80];
Nro_de_sucursal : integer;
end;


ARCHIVO_NOVEDADES = record
Clave_novedad : string[10];
Nro_Sucursal : word;
Cliente : word;
Domicilio : string[40];
Nombre_y_apellido : string[80];
Codigo_Novedad : string[10];
Nro_de_sucursal : integer;
end;



var
fm : file of archivo_maestro;
fn : file of archivo_novedades;
datomaes : array[1..50] of archivo_maestro;
datosnove : array[1..50] of ARCHIVO_NOVEDADES;
i, x, y : integer;


procedure entrada_datos;
begin
i := 1;
gotoxy(15,3);write('Entrada Datos Cliente');
gotoxy(10,5);write(' Clave : ');
gotoxy(10,6);write(' N§ Sucursal : ');
gotoxy(10,7);write(' Cliente : ');
gotoxy(10,8);write(' Documento : ');
gotoxy(10,9);write(' Domicilio : ');
gotoxy(10,10);write('Nombre y Apellidos : ');
gotoxy(10,11);write(' Codigo Sucursal : ');
TextBackground(1);
gotoxy(31,5);write(' ');
TextBackground(0);
gotoxy(31,5);readln(datomaes[i].Clave_maestro);

end;

begin
clrscr;
entrada_datos;
end.

{Si es asín continuare pasándote el código si te sigue interesando}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar