Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё - QBasic
Формулировка задачи:
Ребят,помогите с одним вопросом.
Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё.
я задаю размерность матрицы,через рандомайз выдаю значения,но как заменить все её элементы на главной и выше?
Решение задачи: «Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё»
textual
Листинг программы
- CLS
- RANDOMIZE TIMER
- CONST n = 12
- DIM A(1 TO n, 1 TO n) AS INTEGER
- FOR i = 1 TO n
- FOR j = 1 TO n
- A(i, j) = 20 * RND
- PRINT USING "####"; A(i, j);
- NEXT j: PRINT
- NEXT i: PRINT
- FOR i = 1 TO n
- FOR j = i TO n
- A(i, j) = 0
- NEXT j, i
- FOR i = 1 TO n
- FOR j = 1 TO n
- PRINT USING "####"; A(i, j);
- NEXT j: PRINT
- NEXT i
- END
Объяснение кода листинга программы
- Создается матрица A размером n на n, заполненная случайными числами от 0 до 20.
- Выводится на экран содержимое матрицы A.
- Используя два вложенных цикла, все элементы матрицы A, расположенные на главной диагонали и выше неё, заменяются на 0.
- Выводится на экран обновленное содержимое матрицы A.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
