|
Числа Фибоначчи
|
|
Помогите решить задачу
Последовательность чисел Фибоначчи F[K] (целого типа) определяется следующим образом: F[1] = 1, F[2] = 1, F[K] = F[K-2] + F[K-1], K = 3, 4, ... . Определить k-е число Фибоначчи не используя цикл с параметром for
|
|
|
|
Если это числа Фибоначчи, то F[1]=0
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
так нужно именно из этого условия решить
|
|
|
|
Так тогда это не числа Фибоначчи))
Или всё равно решать?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Хорошо:)
Освобожусь - напишу код)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
А обязательно не использовать for?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
да,нужно без него. там надо while или repeat,или и то и другое
|
|
|
|
|
Можно еще рекурсией воспользоватся или формулой n-ого члена.
|
|
|
|
|
да без разгицы,лишь бы без for.Если можешь,реши сейчас пожалуйчта,на сегодня нужно сдать её
|
|
|
|
Рекурсия
Code function fib (n:byte):integer;
begin
if n<=2 then
fib:=1
else
fib:=fib(n-1)+fib(n-2);
Добавлено (23.05.12, 10:01)
---------------------------------------------
по формуле
f(n)=(((1 + Sqrt(5))/2)^n - ((1 - Sqrt(5))/2)^n)/Sqrt(5)
$$\frac{1}{\sqrt{5}}((\frac{1+\sqrt{5}}{2})^{n}-(\frac{1-\sqrt{5}}{2})^{n}$$
Code function step(x,y:real):real//функция вычисления x в степени y
begin
step:=exp(ln(x) * y)
end;
function fib (n:byte):integer;
var t1,t2: real;//временные переменный, только для лучшей читаемости кода.
t1:=(1+sqrt(5))/2;
t2:=(1+sqrt(5))/2;
fib:=(step(t1,n)-step(t2,n))/sqrt(5);
end;
№ 12 | Автор: Fireleo |
2012-05-23, 10:01 | Изменено: Fireleo - Ср, 2012-05-23, 10:03
|
Репутация: [ + 30 ]
|
|
|
|
Красавчик)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
