Problema en Pascal
Saludos, tengo un que resolver un problema es el siguiente procedimiento que usando recursividad liste en orden inverso el contenido de una lista enlazada simple., y pues la verdad no entiendo para nada, crees que me puedes ayudar con un ejemplo! Gracias
1 Respuesta
Respuesta de currupipi999
1
procedure MuestraLista ( inicial: pFicha );
begin
if inicial <> nil then { Si realmente hay lista }
begin
writeln('Nombre: ', inicial^.nombre);
writeln('Dirección: ', inicial^.direccion);
writeln('Edad: ', inicial^.edad);
MuestraLista ( inicial^.siguiente ); { Y mira el siguiente }
end;
end;
