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

Числа фибоначи

11.10.2012, 17:09. Показов 4486. Ответов 6
Метки нет (Все метки)

условие:
Последовательность чисел Фибоначчи определяется следующим образом: F1 = F2 = 1, Fn = Fn-1 + Fn-2, при n > 2

Формат входных данных

В единственной строке входных данных записано натуральное число n (1≤n≤45).

Формат выходных данных
Вывести одно число Fn.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2012, 17:09
Ответы с готовыми решениями:

Определить член фибоначи, которрый больше заданного числа Х
числа фибоначи определяются по следующему закону a1=1, a2=1, an+1=an+an-1. Определить член...

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

Определить 20 – ое число Фибоначи
Определить 20 – ое число Фибоначи.

Вывести на экран первые n чисел Фибоначи
2. Вывести на экран первые n чисел Фибоначи

6
24 / 24 / 11
Регистрация: 15.06.2012
Сообщений: 138
11.10.2012, 17:15 2
А как найти-то этот Fn?
1
0 / 0 / 1
Регистрация: 10.10.2012
Сообщений: 11
11.10.2012, 17:27  [ТС] 3
я не знаю вас спрашиваю

Добавлено через 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
a   :array [1..45] of integer;
i,n: integer;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:=3 to n
a[i]:=a[i-1]+a[i-2];
writeln (a[n]);
end.
вот ти по правильное решение но почему то точку с запятой хочет
0
24 / 24 / 11
Регистрация: 15.06.2012
Сообщений: 138
11.10.2012, 17:30 4
Цитата Сообщение от JohnTarabukin Посмотреть сообщение
я не знаю вас спрашиваю

Добавлено через 10 минут
var
a :array [1..45] of integer;
i,n: integer;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:=3 to n
a[i]:=a[i-1]+a[i-2];
writeln (a[n]);
end.
вот ти по правильное решение но почему то точку с запятой хочет
Pascal
1
for i:=3 to n do
1
0 / 0 / 1
Регистрация: 10.10.2012
Сообщений: 11
11.10.2012, 17:32  [ТС] 5
всё равно 3 тест не проходит
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.10.2012, 18:52 6
JohnTarabukin, получившееся число выходит за пределлы значений типа integer
необходимо использовать longint или real
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
i,n: byte;
c1,c2,c3: real;
begin
read (n);
c1:=1;
c2:=1;
for i:=3 to n do
    begin
    c3:=c1+c2;
    c1:=c2;
    c2:=c3;
    end;
writeln (c3);
end.
0
0 / 0 / 1
Регистрация: 10.10.2012
Сообщений: 11
11.10.2012, 23:10  [ТС] 7
почему пишет неправильный формат вывода
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.10.2012, 23:10

Вычислить сумму всех чисел Фибоначи которые не превосходят 1000
Решите задачу пожалуйста как можно проще и с обьяснениями, если можно. ...

Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи
Дан двумерный массив.Составить одномерный массив из номеров столбцов,где на главной диагонали число...

Фибоначи
Здраствуйте!Помогите решить задачу. Дан файл f,компоненты U0,U1,..Un которого являеться...

Метод фибоначи
есть прога)) но можно ее както упроcтить и в паскале скинуть))) она в мсеня в С++ Помогите плз...


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

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

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