Ako si pocetnik, a predpostavljam da jesi, evo kod. samo se potrudi da ga detaljno analiziras!
Code:
procedure Resenje;
type niz = array of integer;
var
c,s:integer;
d:niz;
procedure Quicksort (var A:niz; l,h:integer);
var m: integer;
function Poredi(var A:niz; l,h:integer): integer;
var k,i,j:integer;
procedure zameni(var A:niz; s,t:integer);
var b:integer;
begin
b:=A[s];
A[s]:=A[t];
A[t]:=b
end;
begin
k := A[h];
i := l-1;
j := h+1;
repeat
repeat i := i+1 until k <= A[i];
repeat j := j-1 until k >= A[j];
zameni(A,i,j)
until j <= i;
zameni(A,i,j);
Poredi := i
end;
begin
if l < h then begin
m := poredi(A,l,h);
Quicksort(A,l,m-1);
Quicksort(A,m,h)
end;
end;
begin
SetLength(d, ComponentCount);
s:=0;
for c := 0 to ComponentCount - 1 do
if Components[c] is TEdit then
with TEdit(Components[c]) do begin
d[s]:=strtoint(Text);
s:=s+1;
end;
Quicksort(d,0,s-1);
s:=0;
for c :=0 to ComponentCount - 1 do
if Components[c] is Tlabel then
with TLabel(Components[c]) do begin
Caption:=inttostr(d[s]);
s:=s+1;
end;
end;
[Ovu poruku je menjao Aleksandar Ružičić dana 20.03.2007. u 11:00 GMT+1]
Sortiranje brojeva
Re: Sortiranje brojeva
