ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Martynenko Sergey                    2:5020/400     24 Jul 2001  14:00:28
 To : All
 Subject : Re: Числа фибоначи
 -------------------------------------------------------------------------------- 
 

 >> Подскажите, как итеративно находить числа Фибоначи.
 
 > f(0)=1
 > f(1)=1
 > f(n)=f(n-1)+f(n-2)
 
 Это РЕКУРСИЯ, а ИТЕРАТИВHОЕ решение ниже
 
 function Fibb(n : integer) : integer;
 var
    a, b, i : integer;
 begin
    a      := 1;
    Result := 1;
    for i := 3 to n do begin
       b := Result;
       Result := Result + a;
       a := b;
       end;
 end;
 
 P.S. Классики утверждают что любую рекусию можно привести
      к итерации и наоборот.
      По поводу чего долго спорят, что лучше.
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Числа фибоначи   Dima Kiryakov   21 Jul 2001 00:19:33   Числа фибоначи   Kluchnikov Eugene   23 Jul 2001 19:14:02   Re: Числа фибоначи   Martynenko Sergey   24 Jul 2001 14:00:28   Числа фибоначи   Dmitry Pankov   24 Jul 2001 13:10:02   Re: Числа фибоначи   Serge Kanilo   25 Jul 2001 03:59:35   Re: Числа фибоначи   Serge Kanilo   25 Jul 2001 05:20:03