Last active
June 12, 2026 23:56
-
-
Save Jiculi/f3c02d0cf66893e65904e6fbd316719a to your computer and use it in GitHub Desktop.
Creado con PseInt Web
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // Se ingresa una lista de nombres (la lista termina | |
| // cuando se ingresa un nombre en blanco) no permitiendo | |
| // ingresar repetidos y luego se ordena y muestra | |
| Proceso OrdenaLista | |
| Definir cant Como Entero | |
| Definir i Como Entero | |
| Definir j Como Entero | |
| Definir pos_menor Como Entero | |
| Definir nombre Como Texto | |
| Definir se_repite Como Logico | |
| Dimension lista[200] | |
| Definir lista Como Texto | |
| Definir aux Como Texto | |
| Escribir "Ingrese los nombres (enter en blanco para terminar):" | |
| // leer la lista | |
| cant<-0 | |
| Leer nombre | |
| Mientras nombre<> "x" Hacer | |
| cant<-cant+1 | |
| lista[cant]<-nombre | |
| Repetir // leer un nombre y ver que no este ya en la lista | |
| Leer nombre | |
| se_repite<-Falso | |
| Para i<-1 Hasta cant Hacer | |
| Si nombre=lista[i] Entonces | |
| se_repite<-Verdadero | |
| FinSi | |
| FinPara | |
| Hasta Que NO se_repite | |
| FinMientras | |
| // ordenar | |
| Para i<-1 Hasta cant-1 Hacer | |
| // busca el menor entre i y cant | |
| pos_menor<-i | |
| Para j<-i+1 Hasta cant Hacer | |
| Si lista[j]<lista[pos_menor] Entonces | |
| pos_menor<-j | |
| FinSi | |
| FinPara | |
| // intercambia el que estaba en i con el menor que encontro | |
| aux<-lista[i] | |
| lista[i]<-lista[pos_menor] | |
| lista[pos_menor]<-aux | |
| FinPara | |
| // mostrar como queda la lista | |
| Escribir "La lista ordenada es:" | |
| Para i<-1 Hasta cant Hacer | |
| Escribir " ",lista[i] | |
| FinPara | |
| FinProceso |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // Se ingresa una lista de nombres (la lista termina | |
| // cuando se ingresa un nombre en blanco) no permitiendo | |
| // ingresar repetidos y luego se ordena y muestra | |
| Proceso OrdenaLista | |
| Definir cant Como Entero | |
| Definir i Como Entero | |
| Definir j Como Entero | |
| Definir pos_menor Como Entero | |
| Definir nombre Como Texto | |
| Definir se_repite Como Logico | |
| Dimension lista[200] | |
| Definir lista Como Texto | |
| Definir aux Como Texto | |
| Escribir "Ingrese los nombres (enter en blanco para terminar):" | |
| // leer la lista | |
| cant<-0 | |
| Leer nombre | |
| Mientras nombre<> "x" Hacer | |
| cant<-cant+1 | |
| lista[cant]<-nombre | |
| Repetir // leer un nombre y ver que no este ya en la lista | |
| Leer nombre | |
| se_repite<-Falso | |
| Para i<-1 Hasta cant Hacer | |
| Si nombre=lista[i] Entonces | |
| se_repite<-Verdadero | |
| FinSi | |
| FinPara | |
| Hasta Que NO se_repite | |
| FinMientras | |
| // ordenar | |
| Para i<-1 Hasta cant-1 Hacer | |
| // busca el menor entre i y cant | |
| pos_menor<-i | |
| Para j<-i+1 Hasta cant Hacer | |
| Si lista[j]<lista[pos_menor] Entonces | |
| pos_menor<-j | |
| FinSi | |
| FinPara | |
| // intercambia el que estaba en i con el menor que encontro | |
| aux<-lista[i] | |
| lista[i]<-lista[pos_menor] | |
| lista[pos_menor]<-aux | |
| FinPara | |
| // mostrar como queda la lista | |
| Escribir "La lista ordenada es:" | |
| Para i<-1 Hasta cant Hacer | |
| Escribir " ",lista[i] | |
| FinPara | |
| FinProceso |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment