Рекурсия.Вычисление n-го элемента посл-ти, Вычисление n-го элемента посл-ти чисел Фибоначчи Опции

[BSS]

Очень нужна рекурсивная реализация для вычисления n-го элемента последовательности чисел Фибоначчи с использованием вспомогательного массива для хранения вычисленных значений
Помогите пожалуйста решить.

[BSS]

Ну программа не работает в смысле.(тупо выводит-это о программе).Извините, пожалуйста, если что не так сказал

[Lapp]

Ну программа не работает в смысле.(тупо выводит-это о программе).Извините, пожалуйста, если что не так сказал

Постой, постой. Как это не работатет?..
Ты просил рекурсивную функцию для подсчета чисел Фибоначчи? Тебе и дали эту функцию.
То, что она выводит 11-й элемент последовательности правильно (89) - разве это не подтверждение того, что она работает??..

Почитай Крылова. "Мартышка и очки" называется. Это про тебя. Просишь что-то, а как применить - без понятия..

PS
разобраться он хочет.. ага, держи карман шире. Даже посмотреть, что именно выводится - мы уже не в состоянии..

[BSS]

Постой, постой. Как это не работатет?..
Ты просил рекурсивную функцию для подсчета чисел Фибоначчи? Тебе и дали эту функцию.
То, что она выводит 11-й элемент последовательности правильно (89) - разве это не подтверждение того, что она работает??..

Почитай Крылова. "Мартышка и очки" называется. Это про тебя. Просишь что-то, а как применить - без понятия..

PS
разобраться он хочет.. ага, держи карман шире. Даже посмотреть, что именно выводится - мы уже не в состоянии..

********************************
Спасибо Вам, Владимир и Андрей. Я виноват, что не заметил, что там выводится значение функции от 11... fib(11). Ночью дело было...
*************
*************
Программа значит:

const
  maxValue = 256;
var
  Results: array[1 .. maxValue] of longint;

function fib(n: integer): longint;
begin
  if Results[n] = -1 then
    if n <= 2 then Results[n] := 1
    else Results[n] := fib(n - 1) + fib(n - 2);

  fib := Results[n]
end;

var i,n: integer;
begin
  readln(n);
  for i:= 1 to maxValue do Results[i]:= -1;

  writeln(fib(n));
end.

Добавлено через 8 мин.
А что означает строка:

if Results[n] = -1


?

Сообщение отредактировано: Lapp - 26.03.2010 23:19

[Lapp]

А что означает строка:
if Results[n] = -1
?

Это значит, что нужный член последовательности еще не посчитан. Перед работой программа инициализирует массив значением -1. Это значение не встречается в последовательности, поэтому оно используется для индикации того, что этот член еще не считался, и программа начинает его вычислять. В противном случае она выдает то значение, которое сохранено в массиве.


Пожалуйста, при публикации программного кода используй тэги кода (Правила Форума, п.5 и правила раздела Задачи, п.2)