Функция с числами Фибоначи

[PavelDD]

Доброго времени суток.Обращаюсь с просьбой помочь.
У меня есть функция для вывода номера числа(которое я задаю),которое состоит в порядке чисел Фибоначи. Если нет заданного числа в порядке, то функция возвращает -1.
Помогите сделать так, чтобы выводило число,меньшее(которое есть в порядке Фибоначи) заданного. И выводило большее и меньшее(которые состоят в порядке Фибоначи), если заданное число не входило бы в порядок чисел Фибоначи. То есть
например я ввожу 6. Тогда должно вывести 5 и 8.Если ввел 5, то должно вывести 3.
Вот моя функция:

type
    mas=array[0..100]of integer;
    int=integer;
var
   a:mas;
   j,i,k,x,n,p:int;
function bsearch(a:mas; x,n:int):integer;
var i,j,k:int;
begin
     i := 1;
     j := n;
     while i <= j do begin
           k := i + (j - i) div 2;
           if x > a[k] then
              i := k + 1
           else if x < a[k] then
                j := k - 1
           else
               break;
     end;
     if a[k]=x then bsearch:=k;
     if a[k]<>x then bsearch:=-1;
end;

Заранее благодарен.

[Poma][a]

	
	
var
   n, i, f1, f2 : LongInt;

begin
     ReadLn (n);
     f1 := 0;
     f2 := 1;
     i := 1;

     while f2 < n do begin
           f2 := f1+f2;
           f1 := f2-f1;
           Inc (i)
     end;
     Write (f1);
     if f2 <> n then
          WriteLn (' ',f2)
end.

[PavelDD]

Спасибо большое. Все работает!

[PavelDD]

Еще хотел спросить. Как написать двоичный поиск плавающих чисел?

[Poma][a]

Как сделать двоичный поиск плавающих чисел?

Чаво?
Тоесть : Вещественные числа отсортированы. Вам нужно найти какое-то число. Так ?

[Mad_Cat]

Как написать двоичный поиск плавающих чисел

так же как и не плавающих

[PavelDD]

Сообщение от Poma][a

Чаво?
Тоесть : Вещественные числа отсортированы. Вам нужно найти какое-то число. Так ?

Да. Мы делим весь массив пополам и сравниваем заданное число с серединой массива - это с целыми числами . Так же надо с плавающими. Только у меня не получается с плавающими.

[Stilet]

Так же надо с плавающими.

С ними точно так же и делается. Если конечно они отсортированны.

[PavelDD]

А правильно, что выводит например 1.0Е+000(и в каждом числе присутствует Е+000)?

[Poma][a]

НУ если так вообще не нравится, то можно выводить так :

WriteLn (a[i] : 0 : 0)

Где последний нолик - кол-во знаков после запятой.

Кстати, в моем решении убери переменную i и всё что с ней связанно. Просто задача оказалась очень похожей на задачу, уже решенную мной ранее, поэтому я скопипастил и слегка изменил кое-что.