Сформировать квадратную матрицу порядка n по заданному образцу- QBasic(Бейсик)

1 2 3 .... n-2 n-1 n
2 3 4 ... n-1 n 0
3 4 5 .... n 0 0
. . . ... . . .
n-1 n 0 .... 0 0 0
n 0 0 .... 0 0 0
  CLS
  INPUT "Vvedite poryadok matrici : ", n
DIM A(n) AS INTEGER
   FOR iy = 1 TO n
      FOR ix = 0 TO n - 1
      A(n) = ix + iy: IF A(n) > n THEN A(n) = 0
      PRINT A(n);
      NEXT: PRINT
   NEXT

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

Leave a Comment