1 2 3 4 5 | 1 2 3 ... 9 10
0 1 2 ... 8 9
0 0 1 ... 7 8
. . . ... . .
0 0 0 ... 0 1
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CLS
n = 10
DIM a(n, n)
FOR i = 1 TO n
c = 0
FOR j = i TO n
c = c + 1
a(i, j) = c
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Дана матрица A размерности 3*5. получить матрицу по правилу С(i,j)=a(i,j)*min(a(k,j)) - QBasic(Бейсик)
- Даны целые числа a1, a2, a3, a4 Получить целочисленную квадратную матрицу [bi j], у которой bi j =ai -3aj…
- Получить матрицу А(5,4), первая строка которой задается формулой а1j=2j+3, вторая задается формулой а2j=5j - 3,…
- Заполнить матрицу В(6, 5) случайными целыми числами в интервале (10, 45). Разделить матрицу на 3 и вывести на…
- Дана матрица из 2 строк и 3 столбцов. Увеличить отрицательные элементы матрицы во 2 и 3 столбцах в 3 раза-…
- Преобразуйте матрицу D(4, 4) заменив элементы побочной диагонали на максимальный элемент главной диагонали.…