рекурсия, помогите перелелать Опции

[Bast]

Разработайте рекурсивную функцию двоичного поиска элемента массива, равного данному числу.
Она у меня работает, но не так как надо, ее надо переделать. Помогите плиз.

Uses
Crt;
CONST 
 MAXN=10;
VAR
 a:array[1..MAXN] of Longint;
 z:Longint;

Function Rec(l,r:longint):boolean;
Var
 b:Boolean;
 tmp:Longint;
Begin
 b:=false;
 tmp:=(l+r) div 2;
 if a[tmp]=z then 
 Begin
  rec:=true;
  Exit;

 End;
 If (a[tmp]>z) and (l<>tmp) then b:=b or rec(l,tmp-1);
  If (a[tmp]<z) and (r<>tmp) then b:=b or rec(tmp+1,r); 
   Rec:=b;
   End;

var
 i,s:Longint; 
BEGIN
ClrScr;
Writeln('Введите количество элементов массива');
 Read(z);
 Writeln('Введите элементы массива'); 
 For i:=1 to z do 
  Read(a[i]);
  Writeln('Введите число');
 Read(s); 
Writeln(rec(1,i)); 
ReadKey;
END. 

[Bast]

Все сделала

Сообщение отредактировано: Bast - 7.12.2007 23:23