Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2011, 12:47   #1
xpams
Пользователь
 
Регистрация: 16.09.2011
Сообщений: 43
По умолчанию Найти сумму чисел фибоначчи!

Найти сумму чисел фибоначчи от а до в



xpams вне форума Ответить с цитированием
Старый 10.10.2011, 05:32   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Ну, а в чем проблема-то?
Ты можешь либо просто считать сумму последовательно, а можешь воспользоваться формулой:

S = F(b+2) - F(a+1)

Для вычисления самих чисел Фибонначи можешь использовать рекуррентную функцию:
Код:
function Fib(i: integer): longint;
begin
  case i<2 then Fib:= i else Fib:= Fib(i-2) + Fib(i-1)
end;
Это не самый лучший и быстрый метод, но считать будет.
Предпочитаю на "ты".

Последний раз редактировалось TinMan; 10.10.2011 в 05:34.
TinMan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму чисел Моська Фриланс 6 23.01.2011 11:55
найти сумму чисел, которые не попадают в интервал [с, d]. Krazier Помощь студентам 4 05.02.2010 13:37
Найти сумму всех чисел из промежутка от А до В, кратных 8 и 16 nickky2 Паскаль, Turbo Pascal, PascalABC.NET 8 05.12.2008 13:27
Я-юрист, есть задача - Найти сумму всех чисел из промежутка от А до В, кратные 13 и 5 Filosofijka Помощь студентам 1 24.11.2008 19:57
Найти сумму положительных нечетных чисел меньше 50 мандаринка Паскаль, Turbo Pascal, PascalABC.NET 8 22.12.2007 21:45