Donar $20 Donar $50 Donar $100 Donar mensualmente
 


Enviar respuesta 
 
Calificación:
  • 1 votos - 5 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
Problema Codificando Pascal
Autor Mensaje
maxenz Sin conexión
Profesor del Modulo A
Sin estado :(
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 285
Agradecimientos dados: 2
Agradecimientos: 54 en 15 posts
Registro en: Jun 2008
Mensaje: #1
Problema Codificando Pascal Dudas y recomendaciones Algoritmos y Estructuras de Datos
A ver quien me ayuda por favor

estoy haciendo un programa en el cual tengo un archivo de deudas con deudas de clientes, un archivo de pagos con los pagos que hicieron y tengo que crear un archivo nuevo con las deudas actualizadas segun lo que pagaron.
el programa diagramado ya lo tengo bien, pero cuando lo paso a pascal hay algo que no puedo hacer

por ejemplo, supongamos que un cliente no pago nada, yo directamente copio las deudas que tenia del archivo viejo de deudas y las paso al actualizado sin modificar nada, porque al no pagar nada tiene la misma deuda de siempre y se la paso al nuevo actualizado.

Cuando pongo por ejemplo write(ArchivoNuevoActualizado,RegistroViejoDeudas) , para copiar el registro viejo con las deudas al nuevo actualizado, me tira type mismatch. O sea, yendo al grano, no se como copiar un registro de un archivo a otro archivo. En type ya defini todo, pero bueno les paso lo que defini aca a ver si alguno ve un error o como hay que hacerlo realmente.


Program ccc;
uses Newdelay, crt;
type
RDeudas = record
NCli: integer;
NmCli: string[20];
FUP: longint;
ITA: real;
end;
FDeudas = file of RDeudas;

Rpagos = record
NCli: integer;
FUP: longint;
ImPag: real;
end;
FPagos = file of RPagos;

RNad = record
NCli: integer;
NmCli: string[20];
FUP: longint;
ITA: real;
end;
FNad = file of RNad;

var
ArPagos: FPagos;
ArDeudas: FDeudas;
ArNad: FNad;
regd: RDeudas;
regP: RPagos;
regNad: RNad;
FTol: longint;
FUlt: longint;
AcImp: real;
NCliA: integer;

begin

assign(ArPagos,'PAGOSO.DAT');
reset(ArPagos);
assign(ArDeudas,'DCLIENT.DAT');
reset(ArDeudas);
assign(ArNad,'NAD.DAT');
Rewrite(ArNad);

writeln('Ingrese fecha de tolerancia: ');
readln(ftol);

... etc
20-06-2010 16:24
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
tutecabrero Sin conexión
Campeon del cubo Rubik
Sin estado :(
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 107
Agradecimientos dados: 8
Agradecimientos: 3 en 3 posts
Registro en: Jun 2009
Mensaje: #2
Re: Problema Codificando Pascal
El error que te tira es por problema de tipo de dato, no coinciden

Fijate que el archivo tenga la misma estructura de tipo de dato del cual queres grabar.

No podes grabar un reg con int char a un archivo que tiene como estructura definida un reg que es int int.

Slds
20-06-2010 19:09
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
maxenz Sin conexión
Profesor del Modulo A
Sin estado :(
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 285
Agradecimientos dados: 2
Agradecimientos: 54 en 15 posts
Registro en: Jun 2008
Mensaje: #3
Re: Problema Codificando Pascal
y pero te estoy mostrando como declare los archivos, ardeudas tiene el mismo tipo de datos que arnad..

alguna solucion?..
20-06-2010 21:21
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Jarry Sin conexión
Anomalía de Belady
I know teh codez
**********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.944
Agradecimientos dados: 177
Agradecimientos: 183 en 82 posts
Registro en: May 2008
Mensaje: #4
Re: Problema Codificando Pascal
si, pero eso lo sabemos nosotros, para pascal son dos tipos de datos distintos
en vez de declarar otra vez RDeudas con otro nombre, pone FNad = file of RDeudas;

No estoy necesariamente de acuerdo con lo que dice en el post de arriba
[Imagen: 971aa6599664453c05cb3e42d58bbc0eo.jpg]
20-06-2010 22:21
Visita su sitio web Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
maxenz Sin conexión
Profesor del Modulo A
Sin estado :(
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 285
Agradecimientos dados: 2
Agradecimientos: 54 en 15 posts
Registro en: Jun 2008
Mensaje: #5
Re: Problema Codificando Pascal
eso ya lo intente, pero despues en el programa tengo ke declarar los registros de ArNad y no hay manera si lo declaro como tipo regdeudas... igualmente esto ya lo solucione... ahora me tira error file not open.. una verga
20-06-2010 23:02
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)



    This forum uses Lukasz Tkacz MyBB addons.