бинарный поиск. поля с рекурсией. Опции

[lopata]

Бинарный поиск может быть применим на одно поле, в которое элемент сортировочно внесен.
Идея бинарного поиска состоит в том, чтобы сначала рассматривать средний элемент. Если он Искомый, тогда с успехом прерываете. Если не искомый, тогда можно через сравнение искомого элемента со средним установить, нужно ли в нижней или в верхней половине поля дальше искать. При каждом неудачном шаге поиска длина исследоваемой области (досягаемости) поля делится пополам.Это ведет к логарифмеческому Run-time:
при n элементах имеется 0(ld n) Шагов поиска.
Осуществите основе типа
TYPE
IntArray = array [...] of integer
рекурсивный алгоритм:
FUNCTION Contains (a :IntArray ; left,right : integer; x : integer) :BooLean;

который в сотрированном поле а внутри области [left...right] бинарно после значения х ищет и результат TRUE возвращает, когда х в поле оказывается.
Вышеуказанная фунукция использует call by value.

не совсем понимаю задания. очень туго доходит. хотя уверена что когда 2 строчки.

[lopata]

Ошибка использования BB кодов форума. Возможно вы неправильно использовали какой-то из тэгов, как, например, тэг [TAG], тогда как он должен использоваться в виде [TAG=] или наоборот.
//
Не хочет код писать/

Добавлено через 13 мин.

FUNCTION Contains (a :IntArray;l,r:integer ;x : integer) :BooLean;
VAR m: integer;
BEGIN
IF (R+1)= L
   THEN
       BEGIN
       IF (x=a[r])or (x=a[l])THEN Contains := TRUE
          ELSE
              BEGIN
              m := r+(l-r)div 2;
              IF x=a[m] THEN Contains := TRUE
                 ELSE
                     IF x> a[m] THEN BEGIN
                        r := m+1;
                        Contains := Contains(a,l,r,x)
                     END
                     ELSE BEGIN
                          l := middle-1;
                          Contains := Contains(a,l,r,x)
                     END;
END;
END;

Добавлено через 52 сек.
пришлось сократить\