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

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

08.03.2012, 23:10. Просмотров 3112. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
Почетный модератор
7950 / 3921 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.03.2012, 23:13 2
Лучший ответ Сообщение было отмечено DeFF как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b,c,n,i: integer;
begin
write('n=');
readln(n);
a:=1;
b:=1;
write(a,' ',b,' ');
for i:=3 to n do
    begin
    c:=a+b;
    write(c,' ');
    a:=b;
    b:=c;
  end;
readkey
end.
1
iOS/Android Developer
Эксперт С++
5130 / 1567 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
08.03.2012, 23:19 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, n: integer;
 
function Fibonacci(n: integer): integer;
var
  i: integer;
begin
  if n <= 2 then Fibonacci:=1
    else Fibonacci:=Fibonacci(n-1) + Fibonacci(n-2);
end;
 
begin
  write('N: ');
  readln(n);
  writeln('Первые ', n, ' членов последовательности Фибоначчи: ');
  for i:=1 to n do
    write(Fibonacci(i), ' ');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2012, 23:19

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

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

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

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

Выведите на экран первые N членов последовательности чисел
Введите натуральное число N (N&lt;30). Выведите на экран первые N членов последовательности чисел,...

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

Выведите на экран N первых членов последовательности чисел Фибоначчи
Из арифметических операций можно использовать только сложение и вычитание. Введите натуральное...


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

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

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