Последовательность Фибоначчи определяется следующими рекуррентными соотношениями u1=1 u2=2 un=un-1+un-2. Вычислите первые 20 членов последовательности,а также отношения un/un-1,начиная с n=3.Рассмотреть возможность решения этой задачи с помощью одномерного массива ui — QBasic(Бейсик)

disel 
DIM u(20)
u(1) = 1
u(2) = 2
FOR i = 3 TO 20
    u(i) = u(i - 1) + u(i - 2)
NEXT
PRINT "chisla fibonachchi"
FOR i = 1 TO 20
    PRINT u(i); " ";
NEXT
PRINT
PRINT "otnosheniya"
FOR i = 3 TO 20
    PRINT u(i) / u(i - 1); " ";
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment