Me dan un natural k > 0, y tengo que retornar un puntero a la k-ésima celda de una lista dada.
Si la k-ésima celda no existe retorna nil.
Esto es lo que estoy intentando:
function largo(l : ListaSumables): integer;
var
contador: integer;
p: ListaSumables;
begin
contador:= 0;
p:= l;
while p <> nil do
begin
contador:= contador + 1;
p:= p^.siguiente; (* avanzar a la siguiente celda *)
end;
largo:= contador;
end;
var
i, j, t : Natural;
p : ListaSumables;
begin
new(p);
p := nil;
i:=1;
while i <= MAXTablero*MAXTablero do
begin
{ Lista Vacia }
if lista = nil then
begin
new(p);
p^.siguiente := nil;
p := lista
end;
{ Primer elemento }
if k = 0 then
begin
new(p);
p := lista;
end;
if (k > 0) and (k < largo(lista)) then
begin
new(p);
p := lista^.siguiente;
end;
inc(i);
end;
end;
¿Cómo haría para avanzar una posición en la lista e imprimir esa celda?