Найти максимальный элемент матрицы - QBasic (27607)
Формулировка задачи:
Задание № 1.
Дана матрица целых чисел размером nхm. Найти максимальный элемент матрицы, начиная со следующего, все элементы матрицы увеличить на величину найденного элемента.
Задание № 2.
Дана матрица целых чисел размером nхm. Вычесть поэлементно из каждого столбца, кроме i-го, i-й столбец.
Решение задачи: «Найти максимальный элемент матрицы»
textual
Листинг программы
- DEFINT A, I-K, M-N, S
- OPTION BASE 1
- RANDOMIZE TIMER
- CLS
- INPUT "Vvedite N"; n
- INPUT "Vvedite M"; m
- DO
- INPUT "Vvedite Nomer stolbca (<=M)"; k
- LOOP WHILE k > m
- DIM a(n, m)
- FOR i = 1 TO n
- FOR j = 1 TO m
- a(i, j) = 21 * RND - 10.5
- PRINT USING "####"; a(i, j);
- NEXT j
- NEXT i
- FOR j = 1 TO m
- IF j = k THEN 2014
- FOR i = 1 TO n
- a(i, j) = a(i, j) - a(i, k)
- NEXT i
- 2014
- NEXT j
- FOR i = 1 TO n
- FOR j = 1 TO m
- PRINT USING "####"; a(i, j);
- NEXT j
- NEXT i
- END
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д