delphi (Сортировка)

[Danis_ka]

Задание. Отсортировать данный массив по возрастанию сортировкой Хоара.


весь текст пожалуйста)

[Stilet]

весь текст пожалуйста)

Оплатить готов?

[Danis_ka]

procedure sort(p,q:integer);
var i,j,r,n,t:integer;
begin
if p<q then begin
r:=a[p];
i:=p-1;
j:=q+1;
while i<j do begin
repeat
i:=i+1;
until a[i]>=r;
repeat
j:=j-1;
until a[i]<=r;
if i<j then
begin
t:=a[i];
a[j]:=t;
end;
end;
sort(p,j);
sort(j+1,q);
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var t,i,j:integer;
begin
sort(1,25);
t:=0;
For i:=1 to 5 do begin
For j:=1 to 5 do begin
t:=t+1;
stringgrid1.Cells[j-1,i-1]:=inttostr(a[t]);

end; end;
end;

[kangreon]

Тут есть несколько реализаций
http://ru.wikibooks.org/wiki/Примеры...тировки#Pascal