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

Найти первые N чисел Фибоначчи

14.06.2011, 14:03. Показов 3451. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
2. Найти первые N чисел Фибоначчи. Каждое число Фибоначчи равно сумме двух предыдущих чисел при условии, что первые два равны 1 (1, 1, 2, 3, 5, 8, 13, 21…), поэтому в общем виде n – ое число можно определить так:
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2011, 14:03
Ответы с готовыми решениями:

Найти первые N чисел Фибоначчи
2. Найти первые N чисел Фибоначчи. Каждое число Фибоначчи равно сумме двух предыдущих чисел при...

Вычислить первые 20 членов последовательности чисел Фибоначчи
Извините, ну я никак не могу понять программирование циклов на Турбо паскале ]:-> Помогите, чем...

Найти НОД чисел Фибоначчи
Найти НОД(u,u), где u и u - числа Фибоначчи, используя формулу НОД(u,u)=u.

Найти первые 10 чисел кратные 2
Нужно составить блок-схему и программу с счетчиком и без к задаче:Найти первые 10 чисел кратные 2 ...

1
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
14.06.2011, 14:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    uses crt;
    var n,i,prev1,prev2,tmp:integer;
begin
  Write('n= ');
  ReadLn(n);
  prev1:=1;
  prev2:=1;
  Write(1,' ',1,' ');
  
  i:=1;
  While (i<n) do
  Begin
    tmp:=prev2;
    prev2:=prev1+prev2;
    prev1:=tmp;
    Write(prev2,' ');
    inc(i);
  End;
  
  Readln;
end.
Добавлено через 9 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    uses crt;
Procedure Finobaci(x:integer;y:integer;n:integer);
Begin
    Write(y,' ');
    if (n <> 1) then Finobaci(y,x+y,n-1);
End;
    var n:integer;
begin
  Write('n= ');
  ReadLn(n);
  Write(1,' ');
  Finobaci(1,1,n);
  Readln;
end.
0
14.06.2011, 14:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2011, 14:18
Помогаю со студенческими работами здесь

Посчитать и вывести первые 30 чисел последовательности Фибоначчи через массив
Всем привет. Не могу понять, где тут ошибка, может быть в компиляторе? Пытаюсь посчитать и вывести...

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

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

Найти первые m четырехзначных чисел, являющихся палиндромами
найти первые m четырехзначные числа, являющиеся палиндромами (одиноково читаются в прямом и...


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

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

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