Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
2 / 2 / 0
Регистрация: 03.02.2012
Сообщений: 58
1

Получить первые n членов последовательности Фибоначчи

03.02.2012, 19:49. Просмотров 1240. Ответов 3
Метки нет (Все метки)

Последовательность Фибоначчи образуется так: первый и второй члены последовательности рав¬ны 1, каждый следующий равен сумме двух предыдущих (1,1, 2, 3, 5, 8, 13....). Дано натуральное число n (n>3).
Получить первые п членов последовательности фибопачч.1.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2012, 19:49
Ответы с готовыми решениями:

Получить первые n членов последовательности Фибоначчи.
Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1,...

Получить первые n членов последовательности фибоначчи.
Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1,...

Получить первые n членов последовательности Фиббоначи
Последовательность Фиббоначи образуется так: первый и второй члены последовательности равны 1,...

Напечатать первые n членов последовательности 1, 4, 9, 16, 25…
Напечатать первые n членов последовательности 1, 4, 9, 16, 25… pascal

3
iOS/Android Developer
Эксперт С++
5130 / 1567 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
03.02.2012, 20:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 n, i: integer;
 
function Fibonacci(n: integer): integer;
begin
  if (n = 1) or (n = 2) then Fibonacci:=1
   else Fibonacci:=Fibonacci(n-2) + Fibonacci(n-1);
end;
 
begin
 readln(n);
  for i:=1 to n do
   write(Fibonacci(i), ' ');
end.
1
Модератор
60566 / 45562 / 31445
Регистрация: 18.05.2008
Сообщений: 109,508
03.02.2012, 20:11 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n,i,f,f1,f2:integer;
begin
repeat
write('n>3 n=');
read(n);
until n>3;
write(' ',1,' ',1);
f1:=1;
f2:=1;
for i:=3 to n do
 begin
  f:=f1+f2;
  write(' ',f);
  f1:=f2;
  f2:=f;
 end;
end.
1
2 / 2 / 0
Регистрация: 03.02.2012
Сообщений: 58
03.02.2012, 20:13  [ТС] 4
Ev[G]eN, спасибо

Добавлено через 17 секунд
Puporev, спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.02.2012, 20:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Получить первые N чисел Фибоначчи.
Получить первые N (ввести с клавиатуры) чисел Фибоначчи. Вывести. 1 2 3 5 8 13

Вычислить первые n членов заданной последовательности
Написать программу, вычисляющую первые n членов заданной последовательности: b1=2, b2=4,...

Процедура, возвращающая N членов последовательности Фибоначчи в массив
Поместить в модуль процедуру, возвращающую N членов последовательности Фибоначчи в массив....

Вычислить первые 15 членов последовательности по заданной формуле
Составить алгоритм и программу вычисления и вывода первых 15 членов последовательности и их сумм....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.