Помогите с интерполяционным поиском

[Arkuz]

Обратите внимание на алгоритм:

l := 1; r := n;
while (l<>r) do
begin
m := l+(r-l)*(Key-A[l])/(A[r]-A[l]);
if Key> A[m] then l := m+1 else r := m;
end;
if A[l]=Key then <элемент найден> else <элемент не найден>;

Объясните мне, пожалуйста, как может работать этот алгоритм, если индекс массива А вещественное число. Переменной m присваивают вещественный результат.

Я не понимаю, как это сделать!

[puporev]

Не зная суть задачи трудно подсказывать, но если m - целое число, то можно его плучить разными способами, например вместо (Key-A[l])/(A[r]-A[l]); применить (Key-A[l]) div (A[r]-A[l]); или round((Key-A[l])/(A[r]-A[l]));