Donar $20 Donar $50 Donar $100 Donar mensualmente
 


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
ESTRUCTURA COMBINADAS con listas
Autor Mensaje
locopro333 Sin conexión
Empleado de Fotocopiadora
Pura Vida!!!
**

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 25
Agradecimientos dados: 3
Agradecimientos: 4 en 3 posts
Registro en: May 2011
Mensaje: #1
ESTRUCTURA COMBINADAS con listas Dudas y recomendaciones Algoritmos y Estructuras de Datos
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!!!!
(Este mensaje fue modificado por última vez en: 18-11-2012 23:33 por locopro333.)
18-11-2012 22:29
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
mantovan234 Sin conexión
Militante
...
***

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 63
Agradecimientos dados: 24
Agradecimientos: 0 en 0 posts
Registro en: Dec 2011
Mensaje: #2
RE: ESTRUCTURA COMBINADAS con listas
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.
19-11-2012 00:17
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
locopro333 Sin conexión
Empleado de Fotocopiadora
Pura Vida!!!
**

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 25
Agradecimientos dados: 3
Agradecimientos: 4 en 3 posts
Registro en: May 2011
Mensaje: #3
RE: ESTRUCTURA COMBINADAS con listas
Hice esto pero no se si esta bien.
Pinta bien ConfusedConfusedConfusedConfusedConfused


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.


(Este mensaje fue modificado por última vez en: 20-11-2012 23:21 por locopro333.)
19-11-2012 20:48
Envíale un email 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.