Фибоначчи |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Фибоначчи |
yar |
1.11.2002 12:04
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Репутация: 0 |
Вот такая задчка. Я её замутил сам, не знаю, как-то не красиво, и хочу что бы мне вы подсказали самое рациональное решение
Так вот. Дана последовательность чисел Фибоначчи (1,1,2,3,5,8,13,21, .... ) Найти значение элемента по его номеру (например №6 - восемь) Заранее благодарен. ;D -------------------- Типа того...
|
pascal65536 |
2.11.2002 13:13
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 62 Пол: Мужской Репутация: 1 |
число Фиббоначи можно задать не только через сумму двух предыдущих членов, но и через формулу... к сожалению сейчас я её не вспомню
|
mj |
3.11.2002 1:34
Сообщение
#3
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Это получается фрактал.
|
trminator |
25.11.2002 15:18
Сообщение
#4
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Вот тут у меня что-то написано... не знаю - оно, не оно... лучше не нашел
ФОРМУЛА Бинэ 1 1+sqrt(5) 1-sqrt(5) Un=-------((-------------)n-(------------)n sqrt(5) 2 2 (замучился это писать... хуже всего подбирать кол-во пробелов... -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
AGPA |
6.12.2002 23:47
Сообщение
#5
|
Группа: Пользователи Сообщений: 4 Репутация: 0 |
Я где-то в книге по С ++ видел прогу вычисления n-ного члена ряда Ф...Первые 3 елемента задаются вручную - остальные - с помощю рекурсии. Найду - допишу. Кстати, книга : Jessy Liberty "C++ за 21 день". Главное ведь - алгоритм ;)
|
Lord_of_Dark |
1.08.2003 16:11
Сообщение
#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. Сам не компилил, но идти должно... -------------------- Почаще форматируйте жёсткие диски,
И Вантуз почаще пытайтесь стирать! |
KLIM |
8.11.2003 21:39
Сообщение
#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. (не компилировал) |
Текстовая версия | 27.04.2024 19:03 |