Последовательность примечательна тем, что если разделить любой член последовательности на предыдущий, то взависимости от удаленности от начала ряда отношение стремиться к иррациональному числу 1.61805...., которое называется числом "Фи" и является основой "Золотого сечения". Известно что проявление "Золотого сечения" можно наблюдать в живой природе, в том числе в геометрических пропорциях самого человека. Так же интересен факт 1/1.618.. = 0.618.., т.е. получим те же цифры дробной части. Вообщем, об этом ряде есть еще много чего интересного, но здесь важна реализация алгоритма:
Код: Выделить всё
Function Fibonachi(X:Byte):Longint;
var s,n1,n2: Longint;
begin
Fibonachi := 1;
If (X<3) or (X>45) then exit;
N1:=1; N2:=1;
While x > 2 do
begin
Dec(X);
S := N2+N1;
N1:= N2;
N2:= S;
end;
Fibonachi:=S;
end;