Ordenamiento Quick Sort

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Program OrdenRapido;
Uses Crt, Chuchox;
Const
     Ret = 5;
     Limite  = 10;Var
   Lista : V2;
   K,h   : Integer;
Procedure Llenar(Var lista: V2);
  Begin       For k:= 1 to limite do
           Begin
                Lista[k]:= Random(100);
                Delay(50);
           End;       Display(lista,h);
  End;
Procedure Rapido (Var a: V2; n: Integer);
  Procedure Partir (primero, ultimo: Integer);
    Var      i,j      : Integer;
      central  : Integer;
    Procedure Intercambiar (Var m,n : Integer);
      Var
        aux : Integer;      Begin
           aux := m;
           m   := n;
           n   := aux;
      End;    Begin
         i := primero;
         j := ultimo;
         central:= a[(primero + ultimo) Div 2 ];
         Repeat               While a [i] < central Do i := I + 1;
               While a [j] > central Do j := j - 1;
               If i <= j Then
                  Begin
                       Intercambiar (a[i], a[j]);                       i := i+1;
                       j := j-1;
                  End;
         Until i> j;
         If primero < j Then            Begin
                 partir (primero, j);
            End;
         If i < ultimo  Then
            Begin                 partir (i,ultimo);
            End;
         h:= h + 4;
         Display(lista,h);
    End;  Begin
  partir (1,n);
End;
 
 {---------Principal----------}
Begin
     ClrScr;
     h:= 3;
     Llenar(Lista);     h:= h + 4;
     Rapido (Lista, Limite);
     Repeat Until KeyPressed;
End.

26 comentarios en "Ordenamiento Quick Sort"

Ordenamiento Rpido (Quicksort)

[...] Ordenamiento Quick Sort en Turbo Pascal [...]

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Deja un comentario

Suscribirse a los comentarios.