Написать программу заполнение двумерной матрицы числами Фибоначчи- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
INPUT "vvedite razmer matricy ", n
DIM a(n, n), b(n * n)
b(1) = 1
b(2) = 1
FOR i = 3 TO n * n
    b(i) = b(i - 1) + b(i - 2)
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        k = k + 1
        a(i, j) = b(k)
    NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT

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

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

Leave a Comment