Как определить Фибоначчи числа - VB

Формулировка задачи:

Дано целое число N (> 1). Последовательность чисел Фибоначчи FK определяется следующим образом: F_0 = 0, F_1 = 1, F_{n} = F_{n-1} + F_{n-2} Проверить, является ли число N числом Фибоначчи. Если является, то вывести TRUE, если нет — вывести FALSE. Заранее огромное спасибо!

Решение задачи: «Как определить Фибоначчи числа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
public function Daniel_8101(byval N as integer) as boolEAN
dim n_1 as integer
dim n_2 as integer
dim tmp as integer
n_0=0
n_1=1
do 
  tmp=n_1+n_2
  if N<tmp then Daniel_8101=false:exit do
  if N=tmp then Daniel_8101=true:exit do  
  n_2=n_1
  n_1=tmp
loop
end function

Оцени полезность:

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы