Нахождение максимального элемента кучи, добавление элемента, удаление элемента из кучи - VB

Формулировка задачи:

Дано бинарное дерево-куча. Нужно найти максимальный элемент (корень дерева), добавить новый элемент, удалить максимальный элемент.

не могли бы мне помочь преобразовать данный код на язык VB процедура добавления элемента:

procedure insert(x: integer;
  var H: array [0..n] of integer;
  var Num: integer;
  var code: integer);
var
  i: integer;
begin
  if (Num = n) then
    code := 1
  else begin
    Num := Num + 1;
    i := Num;
    H[0] := x;                            {барьер}
    while (x < H[i div 2]) do begin
      H[i] := H[i div 2];
      i := i div 2;
    end;
    H[i] := x;
    code := 0;
  end;
end;

Решение задачи: «Нахождение максимального элемента кучи, добавление элемента, удаление элемента из кучи»

textual
                            Листинг программы 
                        

                            Function insert(x As Integer, ByRef H() As Integer, Num As Integer, code As Integer)
Dim i As Integer, n as Integer
n = ubound(H)
If Num = n Then
    code = 1
Else
    Num = Num + 1
    i = Num
    H(0) = x
    Do While x < H(i \ 2)
        H(i) = H(i \ 2)
        i = i \ 2
    Loop
    H(i) = x
End If
End Function
                        

Оцени полезность:

10 голосов , оценка 4.3 из 5

Похожие ответы