Дана матрица, найти количество элементов по условию - QBasic

Узнай цену своей работы

Формулировка задачи:

Дана матрица размера M x N. В каждой строке найти количество элементов, меньших среднего арифметического всех элементов этой строки

Решение задачи: «Дана матрица, найти количество элементов по условию»

textual
Листинг программы
CLS
RANDOMIZE TIMER
INPUT "M, N = "; m, n
 
DIM x(m, n) AS LONG
DIM SA(m) AS SINGLE
DIM k(m) AS LONG
 
FOR i = 1 TO m
FOR j = 1 TO n
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO m
FOR j = 1 TO n
   SA(i) = SA(i) + x(i, j)
NEXT j, i
 
FOR i = 1 TO m
   SA(i) = SA(i) / n
   PRINT SA(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO m
FOR j = 1 TO n
   IF x(i, j) < SA(i) THEN k(i) = k(i) + 1
NEXT j, i
 
FOR i = 1 TO m
   PRINT k(i);
NEXT
END

Объяснение кода листинга программы

  1. Задаются размеры матрицы m и n с помощью функции INPUT.
  2. Создаются матрица x и векторы SA и k с помощью функции DIM.
  3. В цикле FOR заполняется матрица x случайными числами с помощью функции RND.
  4. В цикле FOR элементы матрицы x суммируются и записываются в вектор SA.
  5. В цикле FOR элементы вектора SA делятся на размер матрицы n.
  6. В цикле FOR проверяется условие IF и если элемент матрицы x меньше значения в векторе SA, то к элементу вектора k прибавляется единица.
  7. В цикле FOR выводятся значения вектора k.

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы