Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement