Import [Link].
Scanner
Public class proceYfunciones
Public static void CargarVector(int tamano, int [ ] vector)
Scanner sc=new Scanner([Link])
for(int i=0; i<tamano; i++)
Vector[i] = (int)([Link]()*10+1
public static void MostrarVectores( int tamano, int [ ] vector)
for(int i=0; i < tamano; i++)
[Link](“Vector[“+i+”] = “+vector[i]
}
Public static void OrdenarBurbuja(int tamano, int [ ] vector)
int aux
for(int i = 0; i < tamano – 1; i++)
for(in t j = 0; j < tamano – 1; j++)
if(vector[ j ] > vector [ j + 1 ]
aux = vector[ j ]
vector[ j ] = vector[ j + 1 ]
vector[ j + 1 ] = aux
Public static void main[]
Scanner sc=new Scanner([Link])
Int cant
[Link](“Ingrese la cantidad de Elementos ”)
cant=[Link]()
int [ ] vector = new Vector[ cant ]
CargarVector(cant, vector)
[Link](“El siguiente es el vector cargado aleatoriamente”
MostrarVector(cant, vector)
OrdenarBurbuja(cant, vector)
[Link](“El siguiente es el vector Ordenado por Burbuja”)
MostrarVector(cant, vector)
}
FUNCIONES Y PROCEDIMIENTOS EN PSEINT
SubProceso CargarVector(tamano, vector)
definir i Como Entero;
para i=0 hasta tamano-1 Con Paso 1 Hacer
vector(i) = azar(20) + 1;
FinPara
FinSubProceso
SubProceso MostrarVector(tamano, vector)
definir i Como Entero;
para i=0 hasta tamano-1 con paso 1 Hacer
Escribir "Vector[",i,"] = ",vector(i);
FinPara
FinSubProceso
SubProceso OrdenarBurbuja(tamano, vector)
definir i, j, aux Como Entero;
para i=0 hasta tamano-1 Con Paso 1 Hacer
para j=i+1 hasta tamano-1 Con Paso 1 Hacer
si vector(i) > vector(j) Entonces
aux = vector(i);
vector(i) = vector(j);
vector(j) = aux;
FinSi
FinPara
FinPara
FinSubProceso
Algoritmo sin_titulo
definir vector, cantidad Como Entero;
Escribir "Ingrese la cantidad de elementos del vector";
leer cantidad;
Dimension vector(cantidad);
CargarVector(cantidad,vector);
Escribir "El Vector cargado aleatoriamente es : ";
MostrarVector(cantidad, vector);
OrdenarBurbuja(cantidad,vector);
Escribir "El siguiente es el vector ordenado por el método de la burbuja";
MostrarVector(cantidad, vector);
FinAlgoritmo