Двоичный поиск оптимизирует поиск полным перебором, так как исключает
большие части списка, не проверяя значения пропускаемых элементов. Если изве-
стно, что значения распределены достаточно равномерно, то можно на каждом
шаге исключить еще большее количество элементов, используя интерполяционный
поиск (interpolation search) .
Интерполяция - это процесс предсказания неизвестных значений на основе
имеющихся. В данном случае вы используете индексы известных значений в спис-
ке, чтобы определить, какой индекс должно иметь искомое значение. Предполо-
жим, что вы имеете такой же список, как на рис. 10.2. Этот список содержит 20
элементов со значениями от 1 до 70. Допустим, что вы хотите найти в этом списке
элемент со значением 44. Значение 44 составляет 64% размера диапазона от 1 до
70. Если считать, что значения элементов распределены равномерно, то искомый
элемент, предположительно, будет находиться в позиции, составляющей 64% от
размера списка - то есть в позиции с индексом 13.
Если найденная алгоритмом позиция неверна, то он сравнивает искомое зна-
чение со значением в выбранной позиции. Если искомое значение меньше, алго-
ритм продолжает искать элемент в первой части списка, если больше, то поиск
продолжается во второй части списка. На рис. 10.3 графически представлен про-
цесс интерполяционного поиска.

Двоичный поиск разбивает список пополам. Интерполяционный поиск делит
список, пытаясь найти ближайший к искомому элемент в списке, при этом точка
разбиения определяется следующим кодом:
Middle := Round(min + ((target - list^[min]) *
((max - min)/(list^[max] - l i s t^[min] ) ) ) ) ;

procedure TMainForm.FileSaveAs(Sender: TObject);
begin
  if SaveDialog.Execute then
  begin
    if FileExists(SaveDialog.FileName) then
      if MessageDlg(Format(sOverWrite, [SaveDialog.FileName]),
        mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
    Editor.PlainText:= AnsiLowerCase(ExtractFileExt(SaveDialog.FileName)) <> '.rtf'; // Вот :)))
    Editor.Lines.SaveToFile(SaveDialog.FileName);
    SetFileName(SaveDialog.FileName);
    Editor.Modified := False;
    SetModified(False);
  end;
end;

    AssignFile(F, FName); { File selected in dialog }
    FileMode := fmOpenRead;
    Reset(F);
    // ...
    // ...
    CloseFile(F);
    FileMode := fmOpenReadWrite;

  with TFileStream.create('c:\MyFile.doc', fmShareDenyWrite) do
  try
    read(b, 14);
    showmessage(b);
  finally
    Free;
  end;

function GetArray: mass;
var
  i: integer;
begin
  for i:=1 to maxarrsize do
    if Length(Form1.StringGrid1.Cells[i-1,0])=0
      then
        Result[i]:=0
      else
        Result[i]:=StrToInt(Form1.StringGrid1.Cells[i-1,0]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  arr: mass;
  exs, middle, index: integer;
  min, max: Integer;
begin
  arr:=GetArray;
  exs:=StrToInt(Edit1.Text);
  Min := 1;
  Max := MaxArrSize;
  Index := 0;
  while (min <= max) do
  begin
    middle := Round((max+min) / 2);
    if (exs = arr[middle]) then
    begin
      Index := middle;
      break;
    end
    else
      if exs < arr[middle] then max := middle - 1
      else min := middle + 1;
  end;
  if index=0
    then
      MessageDlg('Значение '+IntToStr(exs)+' в массиве не найдено.',
                 MtInformation,[mbOk],0)
    else
      Label2.Caption:='Значение '+IntToStr(exs)+' найдено в массиве в позиции '+IntToStr(index);

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
Const
  MaxArrSize = 11;
  arr: Array [1..MaxArrSize] Of Integer = (-40, -25, -20, -3, 0, 6, 11, 20, 28, 30,34);
var
  exs, middle, index: integer;
  min, max: Integer;
begin
  exs:=20;
  Min := 1;
  Max := MaxArrSize;
  Index := 0;
  while (min <= max) do
  begin
    middle := Round((max+min) / 2);
    if (exs = arr[middle]) then
    begin
      Index := middle;
      break;
    end
    else
      if exs < arr[middle] then max := middle - 1
      else min := middle + 1;
  end;
  if index=0
    then
      MessageDlg('Значение '+IntToStr(exs)+' в массиве не найдено.',
                 mtInformation,[mbOk],0)
    else
      MessageDlg('Значение '+IntToStr(exs)+' найдено в массиве в позиции '+
                 IntToStr(index), mtInformation,[mbOk],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  arr: array of Integer;
  ms: TMemoryStream;
  i: Integer;
begin
  SetLength(arr, 5);
  ms:= TMemoryStream.Create;
  try
    for i:= low(arr) to high(arr) do
    begin
      arr[i]:= Random(9) + 1;
      ms.Write(arr[i], SizeOf(Integer));
    end;
    ms.SaveToFile('C:\IntArr.dat');
  finally
    Ms.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  Ms: TMemoryStream;
  i, Sum: Integer;
  S: String;
begin
  if FileExists('C:\IntArr.dat') then
  begin
    Sum:= 0; S:= 'Типа инфа:' + #13#13;
    Ms:= TMemoryStream.Create;
    try
      Ms.LoadFromFile('C:\IntArr.dat');
      SetLength(arr, 5);
      for i:= low(arr) to high(arr) do
      begin
        ms.Read(arr[i], SizeOf(Integer));
        Sum:= Sum + arr[i];
        S:= S + #9 + 'arr[' + IntToStr(i) + '] = ' + IntToStr(arr[i]) + #13;
      end;
    finally
      Ms.Free;
    end;
    S:= S + #13#13 + 'Сумма = ' + IntToStr(Sum);
    ShowMessage(S);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Ms: TMemoryStream;
begin
  Ms:= TMemoryStream.Create;
  try
    Ms.LoadFromFile('C:\Windows\win.ini');
    Memo1.Lines.LoadFromStream(Ms);
  finally
    Ms.Free;
  end;
end;