0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 12
1

Найти сумму первых k чисел последовательности Фибоначчи

01.10.2013, 22:23. Показов 1598. Ответов 2
Метки нет (Все метки)

Найти сумму первых k чисел последовательности Фибоначчи. Последовательность определяется законом: F0=F1=1; Fn=Fn-1+Fn-2 для n>=2
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2013, 22:23
Ответы с готовыми решениями:

Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи
Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых...

По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности
Помогите, пожалуйста, с решением. По заданной формуле члена последовательности с номером k найти...

Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное число М
Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное...

Найти сумму первых N элементов заданной последовательности
Прогуглил, но там удален мат Помогите пожалуйста написать код на Delphi: Последовательность...

2
Модератор
9481 / 4805 / 3211
Регистрация: 17.08.2012
Сообщений: 15,045
02.10.2013, 03:10 2
Лучший ответ Сообщение было отмечено Disah1995 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
var fk_1, fk_2, fk, k, s, i: integer;
begin
  k := abs(StrToInt(Edit1.Text)); //abs - чтобы исключить отрицательные числа
  case k of
    0: ShowMessage('Ошибка: число должно быть больше нуля!');
    1: Label1.Caption := '1';
    2: Label1.Caption := '2'
    else
      begin
        fk_2 := 1;
        fk_1 := 1;
        s := 2;
        for i := 1 to k - 2 do
          begin
            fk := fk_2 + fk_1;
            s := s + fk;
            fk_2 := fk_1;
            fk_1 := fk
          end;
        Label1.Caption := IntToStr(s)
      end
  end;
end;
1
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 12
02.10.2013, 12:37  [ТС] 3
Спасибо огромное.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2013, 12:37
Помогаю со студенческими работами здесь

Найти сумму первых n членов заданной последовательности
1)По заданной формуле члена последовательности с номером k найти сумму первых n членов...

Найти сумму первых k чисел последовательности Фибоначчи
Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу...

Найти двенадцать первых чисел последовательности Фибоначчи
Нужно составить программу нахождения двенадцати первых чисел последовательности Фибоначчи. Я...

Найти сумму N первых чисел фибоначчи
Найти сумму N первых чисел фибоначчи через цикл for program zd421; var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru