Составьте программу для данной матрице- QBasic(Бейсик)

disel
1
2
3
4
5
1 0 ... 0 1
0 1 ... 1 0
. . ... . .
0 1 ... 1 0
1 0 ... 0 1
1
2
3
4
5
6
7
8
DEFINT A-Z
n = 6
DIM A(n, n)
CLS
FOR iy = 1 TO n: FOR ix = 1 TO n
 IF ix = iy OR ix = n - iy + 1 THEN A(ix, iy) = 1
 PRINT A(ix, iy);
NEXT: PRINT : NEXT

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

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

Leave a Comment