Фибаначи через рекурсию

[Relli]

Предисловие:

Уважаемые,я только начал изучат азы делфи,и на данный момент читаю Библию Делфи(2-е издание).Там я прочел про рекурсию и пример:
Index := index*Func(Index-1);
как я понял,если мы берем индекс = 5,то будет Index:=5 * (5-1),после = 20*(4-1) и тп и тд...
Ну так вот,решил я написать ряд фибоначчи,решил - сделал,но мне стали интересны еще способы решения данной задачи,и я полез в инет.

Суть:

function  Tform1.fibrec(n: Integer): Integer;
var
  temp: Integer;
begin
  temp := 0;
  if (n = 0) then temp := 1;
  if (n = 1) then temp := 1;
  if (n > 1) then temp := fibrec(n - 1) + fibrec(n - 2);
    Memo1.Lines.Add(inttostr(temp));
  Result := temp;
end;
Результатом этой функции,при переменной := 10 идет такой результат:


	
	
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
1
1
2
1
3
1
1
2
5
13
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
21
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
1
1
2
1
3
1
1
2
5
13
34
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
1
1
2
1
3
1
1
2
5
13
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
21
55
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
1
1
2
1
3
1
1
2
5
13
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
21
1
1
2
1
3
1
1
2
5
1
1
2
1
3
8
1
1
2
1
3
1
1
2
5
13
34
89
Красным цветом отмечены необходимые числа

Что надо:

1.Откуда лишние числа?
2.Объяснить логику функции(ибо пробывал так: T := (10-1) + (10 - 2),после T := (9-1) + (8 - 2) и тп и тд)

[Mebius]

Цитата: Сообщение от Ramsteins Предисловие: Уважаемые,я только начал изучат азы делфи,и на данный момент читаю Библию Делфи(2-е издание).Там я прочел про рекурсию и пример: Index := index*Func(Index-1); как я понял,если мы берем индекс = 5,то будет Index:=5 * (5-1),после = 20*(4-1) и тп и тд... Ну так вот,решил я написать ряд фибоначчи,решил - сделал,но мне стали интересны еще способы решения данной задачи,и я полез в инет. Суть: function Tform1.fibrec(n: Integer): Integer; var temp: Integer; begin temp := 0; if (n = 0) then temp := 1; if (n = 1) then temp := 1; if (n > 1) then temp := fibrec(n - 1) + fibrec(n - 2); Memo1.Lines.Add(inttostr(temp)); Result := temp; end; Результатом этой функции,при переменной := 10 идет такой результат: 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 1 1 2 1 3 1 1 2 5 13 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 21 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 1 1 2 1 3 1 1 2 5 13 34 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 1 1 2 1 3 1 1 2 5 13 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 21 55 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 1 1 2 1 3 1 1 2 5 13 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 21 1 1 2 1 3 1 1 2 5 1 1 2 1 3 8 1 1 2 1 3 1 1 2 5 13 34 89 Красным цветом отмечены необходимые числа Что надо: 1.Откуда лишние числа? 2.Объяснить логику функции(ибо пробывал так: T := (10-1) + (10 - 2),после T := (9-1) + (8 - 2) и тп и тд)

ты не правильно понял, следующий повтор будет index:= 20*(20-1)

[Relli]

Цитата: Сообщение от Mebius ты не правильно понял, следующий повтор будет index:= 20*(20-1)

тоесть,если мы задаем функции значение 5 (Fib(5)),то функция повторится 5 раз?
в этом и есть суть рекурсии?

[Mebius]

Цитата: Сообщение от Ramsteins тоесть,если мы задаем функции значение 5 (Fib(5)),то функция повторится 5 раз? в этом и есть суть рекурсии?

если б дал линк на пояснение, что за фибоначчи, тогда помог бы

[Relli]

Цитата: Сообщение от Mebius если б дал линк на пояснение, что за фибоначчи, тогда помог бы

Я написал программу на расчет чисел фибоначчи(я использовал 3 переменные),но решил поискать в инете ее варианты...наткнулся на выше изложеннную функцию()меня заинтьерисовал данный код,т.к. он происходит через рекурсию)кароче разобрал с знакомым,тут алгоритм кривой,баг делфи что ли...там не реальные расчеты идет(в коде,который я выше кинул)
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Mebius]

Цитата: Сообщение от Ramsteins Я написал программу на расчет чисел фибоначчи(я использовал 3 переменные),но решил поискать в инете ее варианты...наткнулся на выше изложеннную функцию()меня заинтьерисовал данный код,т.к. он происходит через рекурсию)кароче разобрал с знакомым,тут алгоритм кривой,баг делфи что ли...там не реальные расчеты идет(в коде,который я выше кинул) [Ссылки могут видеть только зарегистрированные пользователи. ]

так тебе одно число надо или кучу как ты выше написал?

вообще по сути получается ф-ция fibrec будет зацикливаться до тех пор, пока не станет 1, сначала будет зациклина fibrec(n-1) до того момента, как n станет 1, потом fibrec(n-2), а потом уже сложатся и выползет тебе конечный результат, если я правильно понял, и тебе нужно ОДНО число. то убери мемо.лайнс.адд(темп) из fibrec и вставь в код кнопки мемо.лайнс.адд(инттустр(fibrec(10)))

[Relli]

Mebius, нет,мне нужен весь ряд чисел.
Например у меня вот такой код,который я сам написал:

Цитата: function Fiba(w : integer) : Integer; var a,b,c,i : integer; begin a := 0; b := 1; For i:= 1 to w do begin c := a + b; b := a; a := c; Memo1.Lines.add(inttostr(c)); end;

Если мы объявим значение функции 10,то в мемо выведутся первые 10 чисел фибоначчи:

Цитата: 1 1 2 3 5 8 13 21 34 55