Найти среднее арифметическое из отрицательных элементов матрицы - QBasic
Формулировка задачи:
Помогите написать программу.
Дана матрица размерностью NxM.
Построить вектор из положительных элементов матрицы.Найти среднее арифметическое из отрицательных элементов матрицы.
Решение задачи: «Найти среднее арифметическое из отрицательных элементов матрицы»
textual
Листинг программы
- INPUT "vvedite n"; n
- INPUT "vvedite m"; m
- DIM a(1 TO n, 1 TO m)
- FOR i = 1 TO n
- FOR j = 1 TO m
- a(i, j) = INT(RND * 100) - 50
- NEXT j
- NEXT i
- PRINT "Matrica NxM:"
- FOR i = 1 TO n
- FOR j = 1 TO m
- PRINT USING "### "; a(i, j);
- NEXT j
- NEXT i
- PRINT "Zadanie 1"
- k = 0
- FOR i = 1 TO n
- FOR j = 1 TO m
- IF a(i, j) > 0 THEN
- k = k + 1
- END IF
- NEXT j
- NEXT i
- DIM vek(1 TO k)
- PRINT " vek = ";
- FOR i = 1 TO n
- FOR j = 1 TO m
- IF a(i, j) > 0 THEN
- vek(k) = a(i, j)
- PRINT vek(k);
- END IF
- NEXT j
- NEXT i
- PRINT "Zadanie 2"
- S = 0
- Kol = 0
- FOR i = 1 TO n
- FOR j = 1 TO m
- IF a(i, j) < 0 THEN
- S = S + a(i, j)
- Kol = Kol + 1
- END IF
- NEXT j
- NEXT i
- Srar = S / Kol
- PRINT "S = "; S, "kol = "; Kol, "Srar = "; Srar
- END
Объяснение кода листинга программы
В этом коде реализована задача на языке QBasic, которая включает в себя следующие шаги:
- Ввод данных от пользователя:
- Первая строка ввода: ввод числа n (размер матрицы по первой оси).
- Вторая строка ввода: ввод числа m (размер матрицы по второй оси).
- Создание матрицы типа a(1 TO n, 1 TO m) с помощью оператора DIM.
- Заполнение матрицы случайными числами от -50 до 50 с помощью цикла FOR и оператора PRINT.
- Вывод матрицы на экран с помощью цикла FOR и оператора PRINT.
- Подсчет количества положительных элементов в матрице с помощью переменных k и i.
- Создание вектора vek(1 TO k) для хранения положительных элементов матрицы.
- Вывод положительных элементов матрицы на экран с помощью цикла FOR и оператора PRINT.
- Подсчет суммы отрицательных элементов матрицы с помощью переменных S и i.
- Подсчет количества отрицательных элементов матрицы с помощью переменной Kol.
- Вычисление среднего арифметического отрицательных элементов матрицы с помощью формулы Srar = S / Kol.
- Вывод суммы, количества и среднего арифметического на экран с помощью оператора PRINT. Код заканчивается командой END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д