Aquí tienes un ejemplo de cómo implementar el recorrido inorden en un árbol binario en Ada:
En este ejemplo, se define un tipo de registro
`Nodo` que representa un nodo en el árbol binario. Cada nodo contiene un valor entero (
`Valor`) y punteros a los subárboles izquierdo (
`Izquierdo`) y derecho (
`Derecho`).
Luego se define un tipo de acceso
`Arbol` que se utiliza para crear un puntero a un nodo del árbol.
La función
`Recorrido_Inorden` es una función recursiva que realiza el recorrido inorden del árbol. Comienza verificando si el nodo actual no es nulo. Luego, realiza el recorrido inorden del subárbol izquierdo, procesa el valor del nodo actual y finalmente realiza el recorrido inorden del subárbol derecho.
En el procedimiento
`Main`, debes construir tu propio árbol binario y luego llamar a
`Recorrido_Inorden` pasando la raíz del árbol como argumento.
Recuerda adaptar este código a tus necesidades particulares, agregando los nodos y configurando los punteros Izquierdo y Derecho de manera adecuada.
Espero que esta solución te sea útil para implementar el recorrido inorden en un árbol binario en Ada. ¡Buena suerte con tu proyecto!