Actividad de UNIT Ciudad

Se plantea definir el siguiente TAD y luego implementar como UNIT de Pascal:

TipoCiudad con a lo sumo 10 lugares turísticos. Implemente las siguientes operaciones:

·         Crear una ciudad: crea una ciudad con un  nombre, con cantidad en cero de lugares turísticos.

·         Cambiar nombre a una ciudad: dada una ciudad cambiar su nombre.

·         Cantidad de lugares turísticos disponibles: devuelve la cantidad de lugares turísticos para una ciudad.

·         Agregar un lugar turístico: dada una ciudad y un nombre del lugar turístico lo agrega a  la ciudad.

·         Iniciar recorrido turístico: dada una ciudad inicia el recorrido por los lugares turísticos.

·         Devolver lugar turístico: dada una ciudad retorna el nombre del lugar turístico actual.

·         Siguiente lugar turístico: dada una ciudad se desplaza al siguiente lugar turístico.

·         Asignar una ciudad a otra ciudad.

·         Ver nombre de la ciudad, dada una ciudad devuelve el nombre de la misma.

 

(b)   Utilizando la UNIT definida en el punto (a) realice un programa que permita administrar las consultas de la agencia de viajes “Mucho recorrido”. Dicha agencia necesita:

i)                    Crear un árbol binario ordenado de nombres de ciudades. Para ello realice el procedimiento de carga de datos y creación del árbol.

ii)                  Con el árbol cargado en el punto i) resuelva la siguiente situación: un cliente quiere conocer los nombres de los destinos turísticos para una ciudad determinada. Dichos destinos deben ser mostrados por pantalla.

 Les dejamos las soluciones hechas por los alumnos en el siguiente mural:

act2