Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Drannzer
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
#1

Найти первое число Фибоначчи, большее заданного - VB

28.12.2016, 02:09. Просмотров 188. Ответов 2
Метки нет (Все метки)

Дано целое число N (> 1). Найти первое число Фибоначчи, большее N
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 02:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти первое число Фибоначчи, большее заданного (VB):

В массиве чисел С1, С2, …, С n найти первое число больше заданного числа - Visual Basic
В массиве чисел С1, С2, …, Сn найти первое число больше заданного числа. HEEEEELP :)

Найти среди чисел первое большее а - Visual Basic
Дано а. Найти среди чисел 1+1/2, 1+1/2+1/3, 1+1/2+1/3+1/4,… первое большее а. Добавлено через 11 минут Помогите бедной девушки...

Как найти число вхождений в строку заданного символа - Visual Basic
Долг в институте по Basic, а я в нем вообще ни чего не понимаю. Кто сможет помогите. Задача: Строковые операции. Подсчитать...

Найти число, полученное при перестановке первой и второй цифр заданного числа - Visual Basic
помогите пожалуйсто очень надо!!!! Задали написать программу по BASICу покажите как PLEASE "Дано трёх значное число. Найти число,...

Найти сумму и число тех элементов заданного вектора X1, X2, ., Xn, которые больше заданной величины P, но ме - Visual Basic
Найти сумму и число тех элементов заданного вектора X1, X2, ..., Xn, которые больше заданной величины P, но меньше другой заданной величины...

Найти сумму и число тех элементов заданного вектора, значения которых находятся в заданном интервале - Visual Basic
Найти сумму и число тех элементов заданного вектора(задать динамическим массивом самостоятельно) X1, X2, ..., Xn, которые больше заданной...

2
Catstail
Модератор
22639 / 11007 / 1784
Регистрация: 12.02.2012
Сообщений: 18,169
31.12.2016, 13:39 #2
Visual Basic
1
2
3
4
5
6
7
function GFib(N as integer, Optional c as integer=1, Optional p as integer =1) as integer
   if c > N then
     GFib=c
   else
     GFib=GFib(N,c+p,c)
   end if
End function
0
m-ch
5201 / 748 / 198
Регистрация: 25.02.2011
Сообщений: 1,030
Записей в блоге: 1
03.01.2017, 16:38 #3
Visual Basic
1
2
3
4
5
6
7
8
9
Function fibo(n As Long) As Long
    Dim a As Long, b As Long
    a = 1
    While n >= a
        a = a + b
        b = a - b
    Wend
    fibo = a
End Function
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2017, 16:38
Привет! Вот еще темы с ответами:

Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N? - Visual Basic
Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N?

Заменить первое четное число на 0, второе - на 2, третье- на 4 и т.д. - Visual Basic
Народ,помогите с заданием : Организовать одномерный массив из случайных значений(положительных и отрицательных).Заменить первое четное...

Найти первое число Фибоначчи, большее заданного n (n>1) - Free Pascal
Найти первое число Фибоначчи, большее заданного n (n>1).

Найти первое число Фибоначчи большее заданного - C++
Дано целое число N (> 1). Последовательность чисел Фибоначчи FK (целого типа) определяется следующим образом: F1 = 1, F2 = 1, FK =...


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

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

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