Заполнение массива через DATA- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
DIM A(4, 4)
DATA 0,0,1,1
DATA 0,0,2,2
DATA 3,3,0,0
DATA 4,4,0,0
FOR i = 1 TO 3
    FOR j = 1 TO 3
        READ A(i, j)
        PRINT A(i, j);
    NEXT j
    PRINT
NEXT i

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

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

Leave a Comment