Algoritmia - diccionario en turbo c

# Definir una estructura para almacenar pares palabra-significado

Estructura Diccionario

    palabra

    significado

# Función para agregar una palabra al diccionario

Función agregarPalabra(diccionario, palabra, significado)

    nuevoPar = CrearDiccionario(palabra, significado)

    diccionario.Agregar(nuevoPar)

# Función para buscar la palabra y encontrar su significado en orden alfabético

Función buscarSignificado(diccionario, palabra)

    diccionarioOrdenado = OrdenarDiccionarioAlfabeticamente(diccionario)

    Para cada par en diccionarioOrdenado

        Si par.palabra == palabra

            Devolver par.significado

        Fin Si

    Devolver "Palabra no encontrada"

# Ejemplo de uso

diccionario = CrearDiccionarioVacio()

agregarPalabra(diccionario, "manzana", "fruta")

agregarPalabra(diccionario, "perro", "animal")

agregarPalabra(diccionario, "casa", "edificación")

palabraBuscada = "perro"

significadoEncontrado = buscarSignificado(diccionario, palabraBuscada)

Imprimir("El significado de", palabraBuscada, "es:", significadoEncontrado)