algoritmo de clasificación pascal

Resolví este problema no hace mucho y se puede resolver usando la clasificación por burbujas. Si no me crees, inventa uno y pruébalo.

La idea es poner el más pequeño en el extremo izquierdo en función del primer o último orden, independientemente de lo que haya en el camino, luego mover el siguiente más pequeño, luego mover el más pequeño hasta el segundo para último movimiento En su lugar, el último también se mueve.

Por tanto, esta idea puede considerarse como una variante del tipo burbuja.

El código es muy simple, así que no te lo daré. Si realmente estás teniendo dificultades para compilarlo, hablemos de ello. Creo que las ideas son más importantes que el código. La capacidad de codificación se puede lograr haciendo preguntas, pero usted mismo debe comprender las ideas.

Beca

Programa a1 (entrada, salida);

Definir variables

n, x, y, z, I, j :entero;

a:array:= x;

a:= x+y+z;

Fin;

Para i:=1 a n-1 realice {ordenación por selección}

Para j:=i+1 a n haga

if (a<a) o ((a= a) y (a & lta)) o ((a[I, 1]》; a[j, 1]) y (a=a) y (a=a) entonces

Iniciar

p>

intercambio (a[I, 1], a[j, 1]);

intercambio (a, a);

intercambio (a, a);

Fin;

para i:=1 a 5 hacer

writeln(a[I, 1], "", a

);

Fin.