Как организовать вывод чисел по возрастанию(убыванию)?

← →
KiD (2002-02-21 23:03) [6]

Блин! Заманался писать :) Просьбочка у меня, посмотрите плиз, и скажите рационально я делал.

procedure TForm1.Button1Click(Sender: TObject);
var m: array[1..50] of real;
i,j,index,k: integer;
tmp,min: real;
begin
randomize;
for i:=1 to 50 do
begin
m[i]:=RandG(0,1);
Memo1.Lines.Add(FloatToStrF(m[i],ffFixed,15,3));
end;
k:=1;
while k<=50 do begin
for j:=1 to 50 do
begin
min:=m[j];
index:=j;
for i:=k to 50 do
begin
if m[i]<min then
begin
min:=m[i];
index:=i;
end;
end;
tmp:=m[j];
m[j]:=min;
m[index]:=tmp;
k:=k+1;
end;
end;
Memo1.Lines.Add(" ");
Memo1.Lines.Add("----");
Memo1.Lines.Add(" ");
for i:=1 to 50 do Memo1.Lines.Add(FloatToStrF(m[i],ffFixed,15,3));
end;

И хотел спросить можно мне это как-нибудь в функцию превратить? Кроде на занятиях слышал, что можно, да мимо ущей пропустил.

p.s. а где можно посмотреть исходники QuickSort на Дельфи?

Как организовать вывод чисел по возрастанию(убыванию)? Найти похожие ветки