0
عضویت / ورود
يکشنبه، 28 تير 1405 ( اقتصاد مقاومتی در سایه وحدت ملی و امنیت ملی )

اعداد فیبوناچی

 
aliagri
aliagri
کاربر برنزی
تاریخ عضویت : دی 1390 
تعداد پست ها : 43
محل سکونت : گلستان

اعداد فیبوناچی
شنبه 27 اردیبهشت 1393  6:04 PM

این تابع اعداد فیبوناچی را محاسبه می کند

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;
تشکرات از این پست
francesco10
دسترسی سریع به انجمن ها