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
[algoritmos] free pascal
Autor Mensaje
fer512 Sin conexión
Campeon del cubo Rubik
Sin estado :(
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 186
Agradecimientos dados: 7
Agradecimientos: 3 en 3 posts
Registro en: Sep 2009
Mensaje: #1
[algoritmos] free pascal Dudas y recomendaciones Algoritmos y Estructuras de Datos
resulta q estaba probando en free pascal lo aprendido en algoritmos.
y al tratar de hacer el programa en una parte no me andaba.

Si leo el primer registro de un archivo.........

read(arch,reg)

y ahora quiero mostrarlo por pantalla.....

writeln(reg)

no tendria q andar?

o... tengo q mostrar cada campo del registro por separado
writeln(reg.nombre)
writeln(reg.edad)



GRACIAS =D



---------PROGRAMA COMPLETO-----------

program fer;

type
treg = record
nombre:string;
numero:real;
end;
tarch = file of treg;

var
reg:treg;
arch:tarch;
a:byte;
i:integer;

begin
assign(arch,'fer.dat');
rewrite(arch);
a:=1;

while (a=1) do

begin
writeln(' INGRESE NOMBRE ');
readln(reg.nombre);
writeln(' INGRESE NUMERO ');
readln(reg.numero);
write(arch,reg);
writeln(' DECEA INGRESAR REGISTRO??');
writeln('1.SI');
writeln('2.NO');
readln(a);

end;
writeln (' ---------------------------- ');
writeln (' ---------------------------- ');
writeln ('LOS REGISTROS DEL ARCHIVO SON.... ');

a:=filesize(arch);
writeln(a);
seek(arch,0);

for i:=1 to a do
begin
read(arch,reg);
writeln(reg);

end;
close(arch);
read(a)

end.
28-09-2011 21:22
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.579
Agradecimientos dados: 136
Agradecimientos: 207 en 144 posts
Registro en: Aug 2010
Mensaje: #2
RE: [algoritmos] free pascal
Si no me equivoco mucho, tenés que mostrar cada uno.

-

Como alternativa, creo que se podia hacer algo como esto:

type
treg = record
nombre:string;
numero:real;
end;
tarch = file of treg;

with reg do
writeln(nombre);
writeln(numero);
end;

sentey escribió:Voy a cambiar esta firma el día que Me$si gane 2 mundiales
28-09-2011 21:33
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Anirus Sin conexión
Super Moderador
Sin estado :)
*********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.163
Agradecimientos dados: 81
Agradecimientos: 232 en 78 posts
Registro en: Nov 2009
Mensaje: #3
RE: [algoritmos] free pascal
Campo por campo tiene que ser.
28-09-2011 21:33
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
fer512 Sin conexión
Campeon del cubo Rubik
Sin estado :(
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 186
Agradecimientos dados: 7
Agradecimientos: 3 en 3 posts
Registro en: Sep 2009
Mensaje: #4
RE: [algoritmos] free pascal
Muchas Gracias =D
28-09-2011 22: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)