metodoSeleccion

Algoritmo metodoSeleccion

    // Compara todos [los valores] con todos
    Definir vector Como Entero;
    Definir i, j, avanceOrdenamiento, n, k, l Como Entero;
    Definir aux Como Entero;
    Escribir "Ingrese la longitud del vector";
    Leer n;
    Dimension vector[n];

    // Cargar vector
    Para i<-0 Hasta n-1 Con Paso 1
        vector[i] <- Aleatorio(1, 99);
    FinPara

    // Mostrar vector sin ordenar
    Escribir "Vector sin ordenar: ";
    Para i<-0 Hasta n-1 Con Paso 1
        Escribir "Vector[", i,"]=", vector[i];
    FinPara


    Para j<-0 Hasta n-1 Con Paso 1 // Da todas las pasadas
        Para i<-0 Hasta n-2 Con Paso 1 // Intercambia valores, el mas chico a la izquierda
            Si vector[i] > vector[i+1] Entonces
                aux <- vector[i];
                vector[i] <- vector[i+1];
                vector[i+1] <- aux;
            FinSi

        FinPara
        Escribir Sin Saltar "Vector después de la pasada ", j+1, " está ordenado ascendente hasta ||: { ";  // Muestra el avance del ordenamiento";
        Para k<-0 Hasta j Con Paso 1
            Escribir Sin Saltar " ", vector[k], ","; // Elementos ordenados
        FinPara
        Escribir Sin Saltar " || ";
        Para l<-k Hasta n-1 Con Paso 1
            Escribir Sin Saltar " ", vector[l], ","; // Elementos sin ordenar
        FinPara
        Escribir " }";
    FinPara

    // Mostrar vector ordenado
    Escribir "";
    Escribir "Vector ordenado de menor a mayor: ";
    Para i<-0 Hasta n-1 Con Paso 1
        Escribir "Vector[", i,"]=", vector[i];
    FinPara

FinAlgoritmo