Modo compacto | Modo extendido

4 en 3 posts · 18-11-2012 22:29

Hola gente, estaba practicando para el parcial de algoritmos y me frene con algunos dudas.

Quería probar una estructura de lista lineal donde el nodo contenga un array, algo asi:

[Imagen: aub7rm.jpg]

Estoy haciendo el codigo y se me esta complicando, la idea que tengo es harcodear los nodos
Y despues mostrar la lista con el clasico procedimiento mostrar (con algunos retoques).....
Denme una mano!!!!

0 en 0 posts · 19-11-2012 00:17

Estoy en una parecida, igual no creo,q te lo pidan xq te deberian dar mucha memoria para nodos.... De todas formas es modificar el rinfo del nodo y despues lo inicializas como cualquier vector, solo q en vez de ser vec[i] pones p^.info.vec[i]<--' '. Si lo inicializas con espacios en blanco.

4 en 3 posts · 19-11-2012 20:48

Hice esto pero no se si esta bien.
Pinta bien Confused

Spoiler: Mostrar



 



//////////////////////////////////////////////////////

// LISTAS LINEALES DONDE EL NODO CONTENGA UN ARRAY ///

//////////////////////////////////////////////////////



type

   Registro = record

   	documento:word;

   	notas:array [1..10] of integer;

   end;



	PNodo = ^Nodo;



   Nodo = record

   	Info:Registro;

      sig:PNodo;

   end;







procedure agragarNodo(var p:PNodo; x:Nodo);

var aux,nuevo:PNodo;

begin

   new(nuevo);

   nuevo^.info.documento:=x.Info.documento;

   nuevo^.info.notas:=x.Info.notas;

   nuevo^.sig:=nil;

	

   if( p=nil ) then begin

      p:=nuevo;

   end else begin

      aux:=p;

      while(aux^.sig<>nil) do begin

         aux:=aux^.sig;

      end;

		

      aux^.sig:=nuevo;

   end;

end;



procedure mostrarLista(p:PNodo);

var aux:PNodo;

var i:byte;

begin

   aux:=p;

   while( aux<>nil ) do begin

      writeln(aux^.Info.documento);

      for i:=1 to 10 do begin

      write('  ',aux^.Info.notas[i],'  ');

      end;

      writeln(' ' );

      aux:=aux^.sig;

   end;

end;





var p:PNodo;

var z:Nodo;

begin



   z.Info.documento:=6008;

   z.Info.notas[1]:=3;

   z.Info.notas[2]:=4;

   z.Info.notas[3]:=5;

   z.Info.notas[4]:=6;

   z.sig:=nil;

	agragarNodo(p,z);



  



   z.Info.documento:=11111;

   z.Info.notas[1]:=6;

   z.Info.notas[2]:=7;

   z.Info.notas[4]:=8;

   z.Info.notas[7]:=10;

   z.Info.notas[4]:=6;

   z.sig:=nil;

   agragarNodo(p,z);



    

   writeln('----');

   mostrarLista(P);



   readkey();

end.

Compilar y ejecutar código

Modo compacto \| Modo extendido ESTRUCTURA COMBINADAS con listas
Autor	Mensaje