Используя материалы лекционных занятий, разработать универальную функцию бинарного поиска
SearchBinDyn:
type
TestBinFunction=function(element:pointer):integer;
// TestBinFunction возвращает
// 0 - если элемент соответствует критерию,
// отрицательное число - если меньше критерия,
// положительное число - если больше критерия
TDataArray=array of pointer;
function SearchBinDyn(const a:TDataArray; test:TestBinFunction; var left,right:integer):integer;
begin
...
end;
Проверить работу SearchBinDyn на лекционных примерах, где демонстрировались возможности
SearchLineDyn. Для корректности проверки примеров обеспечить заполнение исходных массивов заранее отсортированными
данными.