ни кто не хочет алгорит поиска делением пополам преобразовать из простого в рекурсивный????буду очень благодарен
А зачем тебе ИЗ ЭТОГО рекурсию делать? При больших размерах массива будут проблемы - стек не резиновый...
uses crt;
const
n = 10;
type
mas = array[1 .. n] of integer;
var
x: integer;
function dix(const a: mas; left, right: integer;
var i: integer): boolean;
var m: integer;
begin
dix := false; i := 0;
m := (left + right) div 2;
if (left > right) or (a[m] = x) then begin
dix := (a[m] = x);
i := m; exit;
end
else
if a[m] < x then dix := dix(a, m + 1, right, i)
else dix := dix(a, left, m - 1, i);
end;
var
i: integer;
const
a: mas = (
1, 3, 5, 6, 7, 9, 12, 15, 19, 24
);
begin
clrscr;
write('x = '); readln(x);
if dix(a, 1, n, i) then writeln('i = ', i)
else writeln('not found');
readkey;
end.
Спасибо..блин я был почти близок....тока 1 косяк сделал....я не знаю зачем тут рекурсией.....помоему в быстроте выполнения не ахти какая разница..просто сказали сделать....