-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Pide al usuario 10 nombres, los guarda en un arreglo, ordena el arreglo en orden alfabético con el método de la burbuja y muestra el arreglo ordenado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Algoritmo ProcesoOrdenaNombres
TAMANO<-10;
Dimension nombres[10];
Para i<-1 Hasta TAMANO Con Paso 1 Hacer
Escribir Sin Saltar "Ingrese el nombre ", i, ": ";
Leer nombres[i];
FinPara
Para i<-2 Hasta TAMANO Con Paso 1 Hacer
Para j<-1 Hasta TAMANO-i+1 Con Paso 1 Hacer
Si nombres[j] > nombres[j+1] Entonces
nombre <- nombres[j];
nombres[j] <- nombres[j+1];
nombres[j+1] <- nombre;
FinSi
FinPara
FinPara
Escribir "";
Escribir "Nombres ordenados:";
Escribir "";
Para i<-1 Hasta TAMANO Con Paso 1 Hacer
Escribir "Nombre ", i, ": ", nombres[i];
FinPara
FinAlgoritmo
TAMANO<-10;
Dimension nombres[10];
Para i<-1 Hasta TAMANO Con Paso 1 Hacer
Escribir Sin Saltar "Ingrese el nombre ", i, ": ";
Leer nombres[i];
FinPara
Para i<-2 Hasta TAMANO Con Paso 1 Hacer
Para j<-1 Hasta TAMANO-i+1 Con Paso 1 Hacer
Si nombres[j] > nombres[j+1] Entonces
nombre <- nombres[j];
nombres[j] <- nombres[j+1];
nombres[j+1] <- nombre;
FinSi
FinPara
FinPara
Escribir "";
Escribir "Nombres ordenados:";
Escribir "";
Para i<-1 Hasta TAMANO Con Paso 1 Hacer
Escribir "Nombre ", i, ": ", nombres[i];
FinPara
FinAlgoritmo