اعداد فیبوناچی
این تابع اعداد فیبوناچی را محاسبه می کند
Function Fi(I: Integer):Integer;
Var
Sum, OldSum, TmpSum, J:Longint;
begin
Sum :=1;
OldSum :=1;
if I= 0 then
Begin
Result :=0;
End;
if I=1 then
Begin
Result := 1;
End;
if I>1 then
begin
for J := 3 to i do
begin
TmpSum :=Sum;
Sum := Sum+OldSum;
OldSum :=TmpSum ;
end;
Result :=Sum;
end;
end;
1،1،3،5،8،13،21،34
اگر عددهای پشت سرهم تقسیم کنیم مثلا 13تقسیم بر 8یا 34 تقسیم بر 21 به عدد 1.61 یا نسبت طلایی نزدیک می شوند.