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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92 | program qsort;
uses
crt;
const
n=10;type
vec=array[1..n]of integer;
var
v:vec;
c:integer;
procedure quickredit(ini,fin:integer; var pos:integer);
var
izq,der,aux:integer;
band:boolean;begin
izq:=ini;
der:=fin;
pos:=ini;
band:=true; while band=true do
begin
while (v[pos]<=v[der]) and (pos<>der) do
der:=der-1;
if pos=der then band:=false
else
begin
aux:=v[pos];
v[pos]:=v[der]; v[der]:=aux;
pos:=der;
while (v[pos]>=v[izq]) and (pos<>izq) do
izq:=izq+1;
if pos=izq then band:=false
else
begin
aux:=v[pos];
v[pos]:=v[izq]; v[izq]:=aux;
pos:=izq;
end;
end;
end;{while}end;
procedure quickit (v:vec; n:integer);
var
top,ini,fin,pos:integer; pmay,pmen:vec;
begin
top:=1;
pmen[top]:=1;
pmay[top]:=n; while top>0 do
begin
ini:=pmen[top];
fin:=pmay[top];
top:=top-1; quickredit(ini,fin,pos);
if ini<(pos-1) then
begin
top:=top+1;
pmen[top]:=ini; pmay[top]:=pos-1;
end;
if fin>(pos+1) then
begin
top:=top+1; pmen[top]:=pos+1;
pmay[top]:=fin;
end;
end;{while}
end;
begin
clrscr;
for c:=1 to n do
begin write('Dame un numero: ');
readln(v[c]);
end;
quickit(v,n);
writeln; writeln('Vector acomodado: ');
for c:=1 to n do
begin
write(v[c],' ');
end; readkey;
end. |
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
