Seguimos buscando a Arshak. Ayudanos compartiendo!
Encuesta no oficial de docentes
Resultados de la encuesta no oficial de docentes
Probaste el SIGA Helper?

Donar $100 Donar $200 Donar $500 Donar mensualmente


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
Como catso hago un apareo en pascal?
Autor Mensaje
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #1
Como catso hago un apareo en pascal? Dudas y recomendaciones Algoritmos y Estructuras de Datos
Hice la lectura especial, hago el ciclo, hago todo pero pascal me tira error 100 o me copia las cosas por la mitad.

La verdad ya no entiendo que tengo que hacer.


program leeguarda;


uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;


var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);
{seek(zna,0);
seek(znb,0);
seek(aux,0);}

fda := false;
fdb := false;
if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin



end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);


{
while not eof (zna) and not eof (znb) do begin
read(zna,registro);
read(znb,registro2);
write(aux,registro,registro2);
end;}

end.

dentro del while iria todo lo relacinoado con copiar pegar leer etc etc


pero no lo pongo porqeu cuadno lo pongo no funciona tira error 100, que leo afuera de los limites
del archivo.
(Este mensaje fue modificado por última vez en: 04-07-2012 23:42 por bareel.)
04-07-2012 23:41
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #2
RE: Como catso hago un apareo en pascal?
no te dice en que linea te tira el error ?

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
04-07-2012 23:49
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #3
RE: Como catso hago un apareo en pascal?
No tira error de sintaxis, osea salta un error 100 y no se que hago mal.
(Este mensaje fue modificado por última vez en: 04-07-2012 23:58 por bareel.)
04-07-2012 23:58
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #4
RE: Como catso hago un apareo en pascal?
creo que puede ser por esto:


Cita:while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);

(puse los close asi sabes en que parte hablo).

vos validas el fda y fdb arriba y lees..... y despues volves a leer en esa parte, pero no actualizas fda y fdb, entonces ahi podria suceder que tratas de leer y llegaste al eof y te tira el error 100

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
05-07-2012 00:09
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #5
RE: Como catso hago un apareo en pascal?
El tema es que esas lecturas las vuelvo a hacer dentro del ciclo while. (que eso no te lo puse en el codigo)
05-07-2012 00:12
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #6
RE: Como catso hago un apareo en pascal?
sin el codigo no puedo adivinar =P

pone todo el codigo y usuando el coso de "codigo" asi queda mas lindo y se ve mejor

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
05-07-2012 00:15
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #7
RE: Como catso hago un apareo en pascal?
program leeguarda;


uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;


var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);


if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin
write (zna, registro);
write (znb, registro2);

if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;





end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);


end.
05-07-2012 00:19
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #8
RE: Como catso hago un apareo en pascal?

program leeguarda;


uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;


var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);


if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin
write (zna, registro);
write (znb, registro2);

if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;





end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);


end.


emmmm, no, fijate que en el ultimo while nunca cambias el valor de fda y fdb

program leeguarda;


uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;


var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);


if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin
write (zna, registro);
write (znb, registro2);

if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;





end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);


end.


[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
(Este mensaje fue modificado por última vez en: 05-07-2012 00:27 por el pibe.)
05-07-2012 00:26
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #9
RE: Como catso hago un apareo en pascal?
Pero esos while son una vez que salieron del primer ciclo para vaciar los archivos luego del apareo.
05-07-2012 00:33
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #10
RE: Como catso hago un apareo en pascal?
por eso mismo


estas haciendo read de algo que puede ser un eof, y por eso te tira error.


o sea, cuando llegas al final, como no validas que no sea eof, lee eof y rompe

haceme caso, valida eso y vas a ver que anda

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
05-07-2012 00:38
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #11
RE: Como catso hago un apareo en pascal?
disculpame estoy quemado, como lo puedo validar? Que parte?
05-07-2012 00:39
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #12
RE: Como catso hago un apareo en pascal?
linea 80 a 87


pregunta si es eof y actuliza los flag

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
05-07-2012 00:41
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #13
RE: Como catso hago un apareo en pascal?
Pruebo y te digo, gracias. Disculpá la molestia.
Sale error 105, ahora lo arreglo.
(Este mensaje fue modificado por última vez en: 05-07-2012 00:47 por bareel.)
05-07-2012 00:45
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #14
RE: Como catso hago un apareo en pascal?
mira que si queres leer y llegaste al eof, le tenes que hacer un reset o un seek a la posicion 0

creeeo

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
05-07-2012 00:55
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
bareel Sin conexión
Profesor del Modulo A
Moving Forward.
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 225
Agradecimientos dados: 49
Agradecimientos: 9 en 7 posts
Registro en: Oct 2011
Mensaje: #15
RE: Como catso hago un apareo en pascal?
PERFECTO!!!!!!! SOS UN GENIO!!!. CUCHAME, hago apareo de dos archivos que pesan 1,14 kb y 1,43 kb, pero el archivo final pesa 2,55 kb. Puede que haya un error de copia? No me faltaran los ultimos registros?
05-07-2012 01:07
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)