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

Visual Basic

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

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

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

Дано целое число N (> 1). Найти первое число Фибоначчи, большее N
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 02:09     Найти первое число Фибоначчи, большее заданного
Посмотрите здесь:
Visual Basic В массиве чисел С1, С2, …, С n найти первое число больше заданного числа
Найти среди чисел первое большее а Visual Basic
Как найти число вхождений в строку заданного символа Visual Basic
Visual Basic Найти число, полученное при перестановке первой и второй цифр заданного числа
Найти сумму и число тех элементов заданного вектора X1, X2, ., Xn, которые больше заданной величины P, но ме Visual Basic
Найти сумму и число тех элементов заданного вектора, значения которых находятся в заданном интервале Visual Basic
Visual Basic Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N?
Заменить первое четное число на 0, второе - на 2, третье- на 4 и т.д. Visual Basic
Visual Basic Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа
Visual Basic Дано натуральное число N. Найти наименьшее число
Visual Basic Пожалуйста! Как написать программу, чтобы определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа!?
Visual Basic Определить сумму цифр числа и напечатать число, составленное из цифр заданного в обратном порядке

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Catstail
Модератор
22515 / 10920 / 1774
Регистрация: 12.02.2012
Сообщений: 18,067
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
m-ch
5197 / 744 / 195
Регистрация: 25.02.2011
Сообщений: 1,021
Записей в блоге: 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
Ответ Создать тему
Опции темы

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