Помогите реализовать алгоритм Фибоначчиева поиска

[Spickard]

Фибоначчиев поиск наименьшего индекса заданного элемента одномерного "случайного" строго упорядоченного по величине числового массива (рекурсивный вариант).


int N = 10000000; // Количество элементов в массиве
zap A[10000000]; // Массив, отсортированный по возрастанию
int SKey; // Искомый элемент
int Search; // Индекс найденного элемента. 0, если элемент не найден
int Mid; // Индекс внутреннего элемента
int j,i;
int F1,F2,t;
int Finish;

int SFib (int N)
{
   int F1,F2;
   if ((N == 0) || (N == 1))
      return (N);
      else
        if (N >= 2)
	{
		F1 = SFib (N-1);
		F2 = SFib (N-2);
		return (F1+F2);
	}
   return -1;
}


void main ()
{
        Generation ();  //Генерирую упорядоченный массив

        SKey = StrToInt (Edit1->Text);
        j=1;
	while (SFib(j)<(N+1))
          { j=j+1; }
	Mid = N-SFib(j-2)+1;
	F1=SFib(j-2);
	F2=SFib(j-3);
	Finish = 0;
        for (;;)
         {
           if (Finish == 1)
             break;
           if (Mid > 0)
             if (SKey == A[Mid].age)
               break;
           if ((Mid<=0) || (SKey>A[Mid].age))
             {
               if (F1==1)
                  {
                    Finish = 1;
                  }
               else
	          {
                    Mid=Mid+F2;
                    F1=F1-F2;
                    F2=F2-F1;
          	  }
             }
	   else
             {
               if (F2==0)
                 {
                   Finish=1;
                 }
               else
		 {
		   Mid=Mid-F2;
                   t=F1-F2;
                   F1=F2;
                   F2=t;
		 }
             }
         }
	if (Finish) Search=0; else Search=Mid;
        if ((!Search) || (Search == N)) ShowMessage ("Не найден");
        else ShowMessage (IntToStr(Search));
}

У меня работает прекрасно. Переписано с алгоритма на Паскале.

[Rilifer]

немного исправил исходные данные и программа перестала работать((

{ Фибоначчиев поиск наименьшего индекса заданного элемента }
{ одномерного "случайного" строго упорядоченного по возрас- }
{ танию числового массива (рекурсивный вариант) }
const N=10000; { Количество элементов в массиве }
type Massiv=Array [1..N] of Integer;
var A : Massiv; { Массив, отсортированный по возрастанию }
Key : Integer; { Искомый элемент }
Search: 0..N; { Индекс найденного элемента }
{ 0, если элемент не найден }
Mid : Integer; { Индекс внутреннего элемента }
j,i,p : Integer;
F1,F2,t: Integer;
Finish : Boolean;
{ —--------------------------------— }
FUNCTION F_i_b (p: Integer): Integer;
var F1,F2: Integer;
BEGIN
If (p=0) OR (p=1) then F_i_b:=p else If p>=2 then
begin
F1:=F_i_b (p-1);
F2:=F_i_b (p-2);
F_i_b:=F1+F2
end
END;
{ —- }
BEGIN
Writeln('Введите количество элементов в массиве:');
Readln(p);
for i:=1 to p do 
A[i]:=5*i+random(5)-5;
for i:=1 to p do
write(A[i],' ');
Writeln('Искомый элемент: ');
Read(Key); j:=1;
While F_i_b(j)<p+1 do j:=j+1;
Mid:=p-F_i_b(j-2)+1;
F1:=F_i_b(j-2);
F2:=F_i_b(j-3);
Finish:=FALSE;
While (Key<>A[Mid]) AND (Finish=FALSE) do If (Mid<=0) OR (Key>A[Mid]) then If F1=1 then Finish:=TRUE else
begin
Mid:=Mid+F2;
F1:=F1-F2;
F2:=F2-F1
end
else If F2=0 then Finish:=TRUE else
begin
Mid:=Mid-F2;
t:=F1-F2;
F1:=F2;
F2:=t
end;
If Finish then Search:=0 else Search:=Mid;
WriteLn('Индекс искомого элемента в массиве: ',Search)
END.