Вывести небольшое число каждого столбца матрицы - QBasic
Формулировка задачи:
Создать матрицу g(5,7). найти количество положительных чисел в строках,вывести их. Вывести найбольшое число каждого столбца.
есть начало дальше пытался сделать с оператором for , if , then не получается скорее всего я не правильно понял тему
вот набросок точнее начало
Листинг программы
- CLS
- REM " Labaratornya rabota 6"
- REM " Ivanenko S.V. grupa ty-1304 variant 7"
- DIM g(5, 7)
- RANDOMIZE TIMER
- PRINT " nachalniy masiv G razmerom 5*7:"
- FOR n = 1 TO 5
- FOR p = 1 TO 7
- g(5, 7) = INT(60 * RND - 40)
- PRINT g(5, 7); " ";
- NEXT
- NEXT
- PRINT "kolichestvo pologitelnihelementov v rajdoi stroke"
- z = 0
- FOR n = 1 TO 5
- FOR p = 1 TO 7
- IF b(n) > 0 THEN
- z = z + 1
- END IF
- NEXT
- NEXT
- PRINT z
Решение задачи: «Вывести небольшое число каждого столбца матрицы»
textual
Листинг программы
- CLS
- REM " Labaratornya rabota 6"
- REM " Ivanenko S.V. grupa ty-1304 variant 7"
- DIM g(5, 7)
- DIM otv(5)
- RANDOMIZE TIMER
- PRINT " nachalniy masiv G razmerom 5*7:"
- FOR p = 1 TO 5
- FOR n = 1 TO 7
- g(p, n) = INT(60 * RND - 40)
- PRINT g(p, n); " ";
- NEXT
- NEXT
- PRINT "kolichestvo pologitelnih elementov v kajdoi stroke"
- FOR n = 1 TO 5
- otv(n) = 0
- FOR p = 1 TO 7
- IF g(n, p) > 0 THEN
- otv(n) = otv(n) + 1
- END IF
- NEXT
- NEXT
- FOR n = 1 TO 5
- PRINT "v "; n; " stroke - "; otv(n)
- NEXT
Объяснение кода листинга программы
- Задается размер матрицы g(5,7) и переменной otv(5).
- В цикле FOR для каждого элемента матрицы g(p,n) вычисляется случайное число в диапазоне от -40 до 60 и присваивается соответствующему элементу матрицы g(p,n).
- В цикле FOR для каждой строки матрицы g(n) выводится на экран количество положительных элементов в строке.
- В цикле FOR для каждой строки матрицы g(n) вычисляется количество положительных элементов и присваивается соответствующему элементу матрицы otv(n).
- Выводится на экран количество положительных элементов в каждой строке матрицы g(n).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д