SLE_Practica35_Veterinaria

/* Practica 35. Veterinaria */

tipos
   Perro: registro
   {
    identificacion: numerico
    nombre: cadena
    raza: cadena
    peso: numerico
   }

var
    lista: vector[100] Perro
    n, i, j, pos: numerico
    id, peso: numerico
    nombre, raza: cadena
    temp: Perro

inicio
   cls()
    // Leer el número de perros
    imprimir("\nIntroduce el número de perros: ")
    leer(n)

    // Insertar los datos de los perros en la lista
    desde i=1 hasta n {
        imprimir("\nIntroduce la identificación del perro ", i, ": ")
        leer(id)
        imprimir("\nIntroduce el nombre del perro ", i, ": ")
        leer(nombre)
        imprimir("\nIntroduce la raza del perro ", i, ": ")
        leer(raza)
        imprimir("\nIntroduce el peso del perro ", i, ": ")
        leer(peso)

        // Crear el nuevo registro
        lista[i].identificacion = id
        lista[i].nombre = nombre
        lista[i].raza = raza
        lista[i].peso = peso
    }

    // Ordenar la lista por identificación usando ordenamiento por inserción
    desde i=2 hasta n {
        temp = lista[i]
        pos = i

        mientras (pos > 1 && lista[pos-1].identificacion > temp.identificacion) {
            lista[pos] = lista[pos-1]
            pos = pos - 1
        }

        lista[pos] = temp
    }

    // Desplegar los datos de los perros
    imprimir("\n\nDatos de los perros ordenados por identificación:")
    desde i=1 hasta n {
        imprimir("\nIdentificación: ", lista[i].identificacion, ", Nombre: ", lista[i].nombre, ", Raza: ", lista[i].raza, ", Peso: ", lista[i].peso)
    }
fin