• Viernes 15 de Noviembre de 2024, 02:47

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - TareK

Páginas: [1]
1
Pascal / Imprimir Un Archivo
« en: Lunes 21 de Junio de 2004, 21:51 »
Hola..
no se que esta mal en este procedimiento. hace que me imprima en pantalla el primer registro muchas veces, y no que vaya imprimiento el resto de los registros del archivo..

Código: Text
  1. procedure imprimirarchivo(var arch   : tarch);
  2. var
  3. fin:boolean;
  4. rarch:trarch;
  5. begin
  6.      clrscr;
  7.   if eof(arch) then
  8.      fin:=true
  9.   else
  10.   begin
  11.        fin:=false;
  12.        read(arch,rarch)
  13.   end;
  14.   while not fin do
  15.         begin
  16.         writeln(rarch.campo1,' ',rarch.campo2);
  17.         if eof(arch) then
  18.            fin:=true;
  19.         end;
  20.   writeln('Fin de Archivo');
  21. end;
  22.  
  23.  

gracias

2
ASM (Ensamblador) / Ordenamiento?
« en: Jueves 4 de Diciembre de 2003, 18:07 »
Hola, un amigo me pidio q lo ayudara con este trabajo, pero no entiedo como hacerlo. digamos q mis conocimientos en assembler son muy basicos.

la consigna dice:
se tiene una lista de nuemros enteros con signo de formato igual a 1 byte ubicada en memoria a partir d la dirección 1501 cuyo numerod elementos esta enla dirección 14FF. realizar un progrmaa principal q copie la lista a la dirección 1601 pero ordenada en forma ascendente.

desde ya muchas gracias y felicitaciones x el foro!
saludos.

Páginas: [1]