Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
8 / 8 / 0
Регистрация: 18.04.2011
Сообщений: 104
1

Число Фибоначи.

18.04.2011, 14:38. Показов 1164. Ответов 1
Метки нет (Все метки)

Помогите решить задачу ... или хотя бы подскажите алгоритм решения....

Числа Фибоначи строятся следующим образом: 1,1,2,3,5 ... В этой последовательности, начиная с третьего числа, каждый следующий член равен сумме двух предыдущих. Получаем например, шестое число равно 8, а десятое - 55. Требуется написать программу, которая определяет является ли заданное число числом Фибоначи.
Входные данные.
Входной текстовый файл input.txt содержит одно натуральное число в диапазоне от 2 до 1200000000.
Выходные данные.
Выходной текстовый файл OUTPUT.txt должен содержать в первой строке 1, если заданное число является числом Фибоначи, и 0, иначе. В первом случае во вторую стоку требуется вывести его порядковый номер.
Примеры
input.txt______OUTPUT.txt
___8____________1
________________6
__10____________0
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2011, 14:38
Ответы с готовыми решениями:

Найти n-oe число Фибоначи
Составить программу с использованием рекурсивной функции. Найти n-oe число Фибоначи.Числа фибоначи...

Написать процедуру, определяющую fn-e число Фибоначи
Написать процедуру, определяющую fn-e число Фибоначи. (Без использования рекурсии!). Сказали, что...

Разложить число на простые множители и фибоначи
1. Разложить данное натуральное число N на простые множители (через цикл WHILE) 2. Напечатать все...

фибоначи
найти первые N чисел Фибоначи двумя способами. С помощью рекурсии и с помощью итерации.

1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
18.04.2011, 14:51 2
Лучший ответ Сообщение было отмечено Xsenon_rus как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
function Fib(n:longint):boolean;
var i,i1,i2:longint;
begin
if n=1 then Fib:=true
else
 begin
  i1:=1;i2:=1;
  repeat
  i:=i1+i2;
  if i=n then Fib:=true
  else
   begin
    i1:=i2;
    i2:=i;
   end;
  until i>=n;
  if i>n then Fib:=false;
 end;
end;
var n:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(n);
if Fib(n) then write(1)
else write(0);
end.
Большие числа можно взять здесь.
http://oeis.org/A000045
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2011, 14:51

Числа Фибоначи
Числа Фибоначчи: F0 = 0, F1 = 1, а любое следующее число Фибоначчи равно сумме двух предыдущих: Fn...

Числа Фибоначи
Числа Фибоначи u0, u1, u2, ... определяются следующим образом: u0=0, u1 = 1, un = un-1 + un-2...

Последовательность чисел Фибоначи
Помогите пожалуйста решить легкую задачу, обещал подруге завтра решить. Дан файл f компоненты...

Ряд чисел фибоначи
как вывести на экран ряд чисел Фибоначи состоящих из n элементов


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

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

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