Бинарный поиск

[CraZZZy-GameRRR]

Ищу индекс элемента методом бинарного поиска:

function GetIndex(Item: ShortInt): ShortInt;
var
  Top, Bot, Mid: Byte;
  bol: boolean;

begin
  Top := High(MyArray);
  Bot := Low(MyArray);
  bol := false;
  repeat
    Mid := (Bot + Top) div 2;
    if MyArray[Mid] = Item then bol := true
    else if myArray[Mid] > Item then Top := (Bot + Top) div 2
    else Bot := (Bot + Top) div 2;
  until (bol) or (Top <= Bot);

  if bol then Result := Mid
  else Result := -1;
end;

Программа намертво виснет, если элемент либо находится в конце массива, либо отсутствует в нём. Помогите найти ошибку.

[Don Karleone]

Попробуй так:

repeat
Mid:=(Bot + Top) div 2;
if Item < MyArray[Mid] then Top:=Mid;
if Item > MyArray[Mid] then Bot:=Mid;
if Item = MyArray[Mid] then bol:=true;
until bol or (Top <=bot);

[CraZZZy-GameRRR]

Попробовал. Результат, к сожалению, тот же.
Какие ещё будут предложения?

[Don Karleone]

Вот решение твоей проблемы:

repeat
Mid:=(Bot + Top) div 2;
if Item < MyArray[Mid] then Top:=Mid-1;
if Item > MyArray[Mid] then Bot:=Mid+1;
if Item = MyArray[Mid] then bol:=true;
until bol or (Top <=bot);

[CraZZZy-GameRRR]

Теперь одини элементы находит, другие почему-то нет. Очень странно.

[Don Karleone]

ды е..п..р..с..т. Ща разберемся!

Сообщение от CraZZZy-GameRRR

Теперь одини элементы находит, другие почему-то нет. Очень странно.

Ты поиск проводишь в упорядоченном массиве?
У меня все работает!

Блин, должно быть условие until bol or (Top < Bot);

Попробуй вот так:

function GetIndex(Item: ShortInt): ShortInt;
var
  Top, Bot, Mid: Byte;
  bol: boolean;

begin
  Top := High(MyArray);
  Bot := Low(MyArray);
  bol := false;
  repeat
    Mid:=(Bot + Top) div 2;
    if Item < MyArray[Mid] then Top:=Mid-1;
    if Item > MyArray[Mid] then Bot:=Mid+1;
    if Item = MyArray[Mid] then bol:=true;
  until bol or (Top < bot);

  if bol then Result := Mid
  else Result := -1;
end;

[CraZZZy-GameRRR]

Бьюсь головой об компьютерный стол - теперь виснет, если искомый элемент меньше минимального элемента в массиве.
ИМХО Похоже, Delphi над нами издевается.

Сообщение от Don Karleone

Ты поиск проводишь в упорядоченном массиве?

Конечно!

Если нужно, выкладываю полный исходник.

[Don Karleone]

Самый простой способ решить проблему - использовать массив с индексами [1..10] вместо [0..9]

Но можешь использовать и свой массив [0..9]. Я исправил ошибку. Вот проект

[CraZZZy-GameRRR]

Большое спасибо, Don Karleone! Я у тебя в долгу.