ARBOLES. Recorrido de un arbolo binario en orden 'in-orden'


NOTAS:
- Se supone que los nodos tienen la forma:
      izq - data - der

 es decir que:
   
 izq[k] contiene la direccion del hijo izquierdo del nodo N
 der[k] contiene la direccion del hijo derecho del nodo N
 data[k] contiene la información del nodo N

- El valor 0 (cero) indica la inexistencia de hijos
- AdiPila es una función que adiciona un elemento en la pila
- EliPila es una función que extrae un elemento de la pila

procedure InOrden(T)
  P = T
  cima = 0
  AdiPila(pila, cima, 0)
  while cima <> 0
    while P <> 0
	  AdiPila(pila, cima, P)
	  P = izq[P]
	end while
	EliPila(pila, cima, P)
	if P <> 0 then
	  // en vez de print() realize el procesamiento
	  // que sea necesario
	  print(data[P])
	  P = der[P]
	end if
  end while
end InOrden