Рекурсия

[Xeon332]

Ребзя! ТАк и не прошли мы в учебном заведении тему Рекурсии, точнее прошли но не углублялись в неё...

Дано натуральное число n. Определить n-ое число Фибоначчи. Числа Фибоначчи определяются формулами f1 = f2 = 1; fn = fn-1 + fn-2 при n = 3, 4, …, то есть два первых члена равны единице, а каждый следующий член является суммой двух предыдущих.

Нужно написать программу с использованием Рекурсии...

function fib(n: integer): integer;
begin
if n in [1..2] then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;

эт я как понимаю сама функция, и в программе её нужно "включить"... не соображаю)

[_Dmitry]

Десятое число Фибоначчи: a:=fib(10);

[Xeon332]

Сообщение от _Dmitry

Десятое число Фибоначчи: a:=fib(10);

То есть, если мне сказано найти n-ное число, то это будет выглядеть так?: A:=fib(n);?


uses crt;
Var
n:integer;
function fib(n: integer): integer;
begin
if n in [1..2] then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;
begin
writeln('vvedite chislo');
readln;
a:=fib(n);
readkey;
end.

или не так?

[_Dmitry]

Но только число, которое вводите нужно засунуть в переменную n, меняем: readln на readln(n); После вычисления печатаем результат: writeln(a);

[Xeon332]

Огромное спасибо!

[Zenit10]

Здраствуйте все, у меня возник вопрос по рекурсии, я посеместра проболел и поэтому вообще не представляю что она из себя представляет и немогу предоставить своего решения, вся надежда на вас

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

Всё разобрались мы с этой задачей общими усилиями.Помощь по ней боьше не требуется.