Дан квадратный массив a(n,n) (кол-во столбцов/строк вводится с клавиатуры).Заполнить его в порядке возрастания в соответствие с рисунком- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
INPUT n
DIM a(n, n)
k = 1
FOR j = 1 TO n
IF j MOD 2 = 1 THEN
FOR i = 1 TO n
a(i, j) = k
k = k + 1
NEXT
ELSE
FOR i = n TO 1 STEP -1
a(i, j) = k
k = k + 1
NEXT
END IF
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT n
DIM a(n, n)
FOR j = 1 TO n
    IF j MOD 2 THEN z = 0 ELSE z = n + 1
    FOR i = 1 TO n
        k = k + 1
        a(ABS(z - i), j) = k
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "####"; a(i, j);
    NEXT
    PRINT
NEXT

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

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

Leave a Comment