IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Фибоначчи
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9

Репутация: -  0  +


Вот такая задчка. Я её замутил сам, не знаю, как-то не красиво, и хочу что бы мне вы подсказали самое рациональное решение smile.gif
Так вот. Дана последовательность чисел Фибоначчи (1,1,2,3,5,8,13,21, .... )
 Найти значение элемента по его номеру (например №6 - восемь)
Заранее благодарен.  ;D


--------------------
Типа того...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 62
Пол: Мужской

Репутация: -  1  +


число Фиббоначи можно задать не только через сумму двух предыдущих членов, но и через формулу... к сожалению сейчас я её не вспомню sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Это получается фрактал.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Вот тут у меня что-то написано... не знаю - оно, не оно... лучше не нашел
ФОРМУЛА Бинэ
                               1                                 1+sqrt(5)                                                    1-sqrt(5)
Un=-------((-------------)n-(------------)n
                   sqrt(5)         2                                                                                                     2

(замучился это писать... хуже всего подбирать кол-во пробелов...


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 4

Репутация: -  0  +


Я где-то в книге по С ++ видел прогу вычисления n-ного члена ряда Ф...Первые 3 елемента задаются вручную - остальные - с помощю рекурсии. Найду - допишу. Кстати, книга : Jessy Liberty "C++ за 21 день". Главное ведь - алгоритм  ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 9

Репутация: -  0  +


AnKoR, сделай так:

{$N+}
var i, max: longint;
     a: array[0..1] of extended;
begin
readln( max );
a[1]:= 1;
a[0]:= 1;
for i:= 1 to ( max - 2 ) do if odd( i ) then a[1]:= a[1] + a[0] else a[0]:= a[1] + a[0];
write( a[max mod 2] );
readln
end.

Сам не компилил, но идти должно...


--------------------
Почаще форматируйте жёсткие диски,
И Вантуз почаще пытайтесь стирать!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






uses crt;
var
n:array[1..100] of longint;
x,y:integer;
begin
clrscr;
writeln('введите номер');
readln(y);
n[1]:=0;
n[2]:=1;
for x:=3 to y do
begin
n[x]:=n[x-1]+n[x-2];
end;
writeln('число ',n[x]);
repeat until keypressed;
end.
(не компилировал)
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.10.2020 14:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name