Listas Enlazadas Pascal
Enviado por Programa Chuletas y clasificado en Otras materias
Escrito el en 
español con un tamaño de 1,43 KB
Definición:
Enlace=^Nodo;
Nodo=Record
clave:integer;
siguiente:Enlace;
End;
------------------------
Var
y,z: enlace;
i:integer;
-------------------------
Leer:
Begin
New(z);
z^.siguiente:=Nil;
Readln(i);
While i>=0 do begin
New(y);
y^.clave:=i;
y^.siguiente:=z;
z:=y;
Readln(i);
end;
Escribir:
While (y^siguiente<>Nil) do begin
writeln(y^.clave);
z:=y^.siguiente;
Dispose(y);
y:=z;
end;
Dispose(z);
End. //Fin de Lectura-Escritura
-----------------------------------
Insertar donde se quiera:
New(z);
z^.clave:=i;
z^.siguiente:=y^.siguiente;
y^.siguiente:=z;
Eliminar nodo:
z:=y^siguiente;
y^siguiente:=y^.siguiente^.siguiente;
Dispose(z);
--------------------------------------
Enlace=^Nodo;
Nodo=Record
clave:integer;
siguiente:Enlace;
End;
------------------------
Var
y,z: enlace;
i:integer;
-------------------------
Leer:
Begin
New(z);
z^.siguiente:=Nil;
Readln(i);
While i>=0 do begin
New(y);
y^.clave:=i;
y^.siguiente:=z;
z:=y;
Readln(i);
end;
Escribir:
While (y^siguiente<>Nil) do begin
writeln(y^.clave);
z:=y^.siguiente;
Dispose(y);
y:=z;
end;
Dispose(z);
End. //Fin de Lectura-Escritura
-----------------------------------
Insertar donde se quiera:
New(z);
z^.clave:=i;
z^.siguiente:=y^.siguiente;
y^.siguiente:=z;
Eliminar nodo:
z:=y^siguiente;
y^siguiente:=y^.siguiente^.siguiente;
Dispose(z);
--------------------------------------