Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Stivi
0 / 0 / 1
Регистрация: 07.10.2012
Сообщений: 22
#1

Определить, содержится ли в заданной последовательности целых чисел хотя бы одно число Фибоначчи - Turbo Pascal

07.10.2012, 22:47. Просмотров 646. Ответов 1
Метки нет (Все метки)

Помогите написать)

3. задача.
Определить, содержится ли в заданной последовательности целых чисел хотя бы одно число Фибоначчи
Понимаю как найти числа фибоначчи.Но дальше в написание кода для нахождения,что то не идет.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2012, 22:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, содержится ли в заданной последовательности целых чисел хотя бы одно число Фибоначчи (Turbo Pascal):

Определить, есть ли в последовательности хотя бы одно число, кратное 7
1) Дана непустая последовательность целых чисел, оканчивающаяся числом - 1 ....

Определить, есть ли в последовательности хотя бы одно число, оканчивающееся цифрой «7»
Дана последовательность натуральных чисел а1, а2,..., а20. Определить, есть ли...

Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы одно число из заданного диапазона [p, q]
4. Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы одно...

Инвертировать столбцы матрицы, в которых есть хотя бы одно число Фибоначчи
Дана матрица А(M,N). Инвертировать столбцы матрицы, в которых есть хотя бы...

Найти среди первых m2-1 чисел Фибоначчи хотя бы одно, делящееся на m
Для заданного целого числа m найти среди первых m2-1 чисел Фибоначчи хотя бы...

Дана матрица A(N,M). Построить вектор B(N), элементы B(i) которого равны единице, если в i-ой строке содержится хотя бы одно положительное число
5. Дана матрица A(N,M). Построить вектор B(N), элементы B(i) которого равны...

1
Dmitrinik
535 / 391 / 99
Регистрация: 18.08.2012
Сообщений: 1,008
08.10.2012, 10:31 #2
Лучший ответ Сообщение было отмечено Stivi как решение

Решение

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
31
32
33
34
{Числа Фибоначчи}
Uses Crt;
Const nn = 20;
Var mm : Array[1..nn] of Word;
    Fn, Fn1, Fn0, i, j : Word;
Begin
  ClrScr;
  WriteLn('              <<Числа Фибоначчи>>');
  Randomize;
  For i:=1 to nn do mm[i]:=Random(45000)+100;
{Сортировка последовательности по возрастанию}
  For i:=1 to nn do
    For j:=i+1 to nn do
      If mm[i]>mm[j] then
        Begin
          Fn:=mm[i]; mm[i]:=mm[j]; mm[j]:=Fn;
        end;
  j:=0;
  Fn0:=0; Fn1:=1;
  Fn:=0; 
  For i:=1 to nn do
    Begin
      While Fn<mm[i] do
        Begin
          Fn:=Fn0+Fn1;   {очередное число Фибоначчи}
          Fn0:=Fn1; Fn1:=Fn;
        end;
      If Fn=mm[i] then
        Begin inc(j); WriteLn(mm[i]); end;
    end;
  If j=0 then
    WriteLn('Чисел Фибоначчи в последовательности нет');
  ReadLn;
End.
1.Использовано прямое определение числа Фибоначчи.
2.В случайно сформированной последовательности редко встречаются такие числа.
3.Если последовательность предварительно не отсортировать по возрастанию, то время работы программы может оказаться весьма значительным даже для небольшого числа членов последовательности
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 10:31
Привет! Вот еще темы с решениями:

Дано N (N - натуральное число) целых чисел от 1 до 100. Определить среди них различные числа Фибоначчи
Дано N (N - натуральное число) целых чисел от 1 до 100. Определить среди них...

Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое число есть
Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое...

В последовательности целых чисел определить третье положительное число
В последовательности целых чисел определить третье положительное число.

В последовательности целых чисел определить третье положительное число
В последовательности целых чисел определить третье положительное число.


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

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

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