Курсовая работа: Сортування даних - пірамідальне сортування

If j = k then

Swap(i, j)

else

if j < k then

begin

if a[j+1] > a[j] then

j := j + 1;

Swap(i, j);

Conflict(j, k)

End End;

Procedure SortTree(i : Integer);

begin

If i <= n div 2 then

begin

SortTree(2*i);

SortTree(2*i+1);

Conflict(i, n)

end

end;

procedure Show_result;

var i:integer;

begin

Form1.label1.Caption:='';

for i:=1 to N do

begin

Form1.Label1.Caption:=Form1.Label1.Caption+' '+floattostr(A[i]);

Form1.stringGrid1.Cells[i-1,0]:=floattostr(A[i]);

end; end;

procedure get_data;