Найти среднее арифметическое из отрицательных элементов матрицы - QBasic

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

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

Помогите написать программу. Дана матрица размерностью NxM. Построить вектор из положительных элементов матрицы.Найти среднее арифметическое из отрицательных элементов матрицы.

Решение задачи: «Найти среднее арифметическое из отрицательных элементов матрицы»

textual
Листинг программы
  1. INPUT "vvedite n"; n
  2. INPUT "vvedite m"; m
  3.  
  4. DIM a(1 TO n, 1 TO m)
  5.  
  6. FOR i = 1 TO n
  7.     FOR j = 1 TO m
  8.         a(i, j) = INT(RND * 100) - 50
  9.     NEXT j
  10. NEXT i
  11.  
  12. PRINT "Matrica NxM:"
  13. FOR i = 1 TO n
  14.     FOR j = 1 TO m
  15.         PRINT USING "###   "; a(i, j);
  16.     NEXT j
  17.     PRINT
  18. NEXT i
  19. PRINT
  20.  
  21. PRINT "Zadanie 1"
  22. k = 0
  23. FOR i = 1 TO n
  24.     FOR j = 1 TO m
  25.         IF a(i, j) > 0 THEN
  26.             k = k + 1
  27.         END IF
  28.     NEXT j
  29. NEXT i
  30.  
  31. DIM vek(1 TO k)
  32.  
  33. PRINT " vek = ";
  34. FOR i = 1 TO n
  35.     FOR j = 1 TO m
  36.         IF a(i, j) > 0 THEN
  37.             vek(k) = a(i, j)
  38.             PRINT vek(k);
  39.         END IF
  40.     NEXT j
  41. NEXT i
  42. PRINT
  43. PRINT
  44.  
  45. PRINT "Zadanie 2"
  46. S = 0
  47. Kol = 0
  48. FOR i = 1 TO n
  49.     FOR j = 1 TO m
  50.         IF a(i, j) < 0 THEN
  51.             S = S + a(i, j)
  52.             Kol = Kol + 1
  53.         END IF
  54.     NEXT j
  55. NEXT i
  56. Srar = S / Kol
  57. PRINT "S = "; S, "kol = "; Kol, "Srar = "; Srar
  58. END

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

В этом коде реализована задача на языке QBasic, которая включает в себя следующие шаги:

  1. Ввод данных от пользователя:
    • Первая строка ввода: ввод числа n (размер матрицы по первой оси).
    • Вторая строка ввода: ввод числа m (размер матрицы по второй оси).
  2. Создание матрицы типа a(1 TO n, 1 TO m) с помощью оператора DIM.
  3. Заполнение матрицы случайными числами от -50 до 50 с помощью цикла FOR и оператора PRINT.
  4. Вывод матрицы на экран с помощью цикла FOR и оператора PRINT.
  5. Подсчет количества положительных элементов в матрице с помощью переменных k и i.
  6. Создание вектора vek(1 TO k) для хранения положительных элементов матрицы.
  7. Вывод положительных элементов матрицы на экран с помощью цикла FOR и оператора PRINT.
  8. Подсчет суммы отрицательных элементов матрицы с помощью переменных S и i.
  9. Подсчет количества отрицательных элементов матрицы с помощью переменной Kol.
  10. Вычисление среднего арифметического отрицательных элементов матрицы с помощью формулы Srar = S / Kol.
  11. Вывод суммы, количества и среднего арифметического на экран с помощью оператора PRINT. Код заканчивается командой END.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы