Ввести матрицу В, m ≠n. Заменить в каждой строке максимальный элемент – нулем. Вывести исходную и преобра - QBasic
Формулировка задачи:
Ввести матрицу В(m,n), m ≠n. Заменить в каждой строке максимальный элемент – нулем. Вывести исходную и преобразованную матрицы.
Решение задачи: «Ввести матрицу В, m ≠n. Заменить в каждой строке максимальный элемент – нулем. Вывести исходную и преобра»
textual
Листинг программы
- CLS
- RANDOMIZE TIMER
- m = 6
- n = 8
- DIM B(1 TO m, 1 TO n) AS INTEGER
- FOR i = 1 TO m
- FOR j = 1 TO n
- B(i, j) = 80 * RND - 40
- PRINT USING "####"; B(i, j);
- NEXT j: PRINT
- NEXT i: PRINT
- FOR i = 1 TO m
- Max = B(i, 1)
- jm = 1
- FOR j = 1 TO n
- IF Max < B(i, j) THEN
- Max = B(i, j)
- jm = j
- END IF
- NEXT j
- B(i, jm) = 0
- NEXT i
- FOR i = 1 TO m
- FOR j = 1 TO n
- PRINT USING "####"; B(i, j);
- NEXT j: PRINT
- NEXT i
- END
Объяснение кода листинга программы
- Задаются значения переменных m и n (первая строка).
- Создается матрица B (16 строк).
- В каждой строке матрицы B случайным образом заполняются элементы (17-20 строки).
- Выводятся на экран все элементы матрицы B (21-22 строки).
- В каждой строке матрицы B находится максимальный элемент (23-26 строки).
- Ноль заменяется на максимальный элемент в каждой строке (27-28 строки).
- Выводятся на экран все элементы матрицы B после замены (29-30 строки).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д