![](/user_photo/_userpic.png)
Мансуров. Основы программирования в среде Lazarus. 2010
.pdfГлава 4 Типовые алгоритмы обработки информации
____________________________________________________________________
name_file: string; name_manager: string;
{ ======= Бинарный поиск ======== }
function BinarySearch(var a: array of manager; name_manager: string): integer;
var
left, right, middle: integer; begin
left:= Low(a); right:= High(a); repeat
middle:= (left + right) div 2;
if name_manager < a[middle].name then right:= middle - 1
else
if name_manager > a[middle].name then left:= middle + 1
else begin
BinarySearch:= middle; exit;
end;
until left > right; BinarySearch:= -1;
end;
{ ========================================= } begin
{При необходимости укажите полный путь к файлу
или скопируйте файл в папку с данным проектом}
321
![](/html/66936/286/html_e6jHPkGZZp.5LuV/htmlconvd-udfP_F326x1.jpg)