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

@yulianna2501 · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

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

Добавлено через 21 час 32 минуты
не могли бы мне помочь преобразовать данный код на язык VB

процедура добавления элемента:

Delphi

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;

@Linoge · 07.12.2011, 14:07

Visual Basic

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

	07.12.2011, 14:07

Опции темы