Правила 1-3 визначають у масиві структуру дерева, причому глибина дерева не перевершує [log2 n] + 1. Вони ж задають спосіб руху по дереву від кореня до листків. Рух вгору задається правилом 4:

4. Якщо A[i] - вузол дерева та i > 1, то A[i mod 2] - вузол - “батько” вузла A[i].

Процедура Show_result

Procedure Show_result

Виводить в циклі елементи відсортованого масиву на екран.

Процедура get_data

Procedure get_data

Зчитує значення елементів масиву для сортування.

Користувацьке вікно ( форма )

Текст програми

var

Form1: TForm1;

A:array[1..20] of real;

N,k:integer;

implementation

Procedure Swap(i, j : Integer);

Var b : Real;

Begin

If a[i] < a[j] then

begin

b := a[i];

a[i] := a[j];

a[j] := b

end

End;

Procedure Conflict(i, k : Integer);

Var j : Integer;

Begin