В заданной матрице найти наибольший из элементов, кратных 7 - QBasic
Формулировка задачи:
Помогите написать код, на qBasic
В заданном массиве A(N,M) найти наибольший из элементов, кратных 7.
Решение задачи: «В заданной матрице найти наибольший из элементов, кратных 7»
textual
Листинг программы
- CONST MaxRow = 4
- CONST MaxCol = 4
- CONST MaxRnd = 200
- REDIM Table(MaxRow, MaxCol) AS INTEGER
- SCREEN 10
- DIM I, J AS INTEGER
- RANDOMIZE TIMER
- 'заполняем таблицу случайным образом
- FOR I = 0 TO MaxRow
- FOR J = 0 TO MaxCol
- Table(I, J) = MaxRnd * RND
- NEXT J
- NEXT I
- DIM MaxEl AS INTEGER
- MaxEl = Table(0, 0)
- FOR I = 0 TO MaxRow
- FOR J = 0 TO MaxCol
- IF MaxEl < Table(I, J) AND (Table(I, J) MOD 7 = 0) THEN
- MaxEl = Table(I, J)
- END IF
- NEXT J
- NEXT I
- IF (MaxEl MOD 7 = 0) THEN
- PRINT MaxEl
- ELSE
- PRINT "Not Found"
- END IF
- SLEEP
Объяснение кода листинга программы
- Задаются константы для размера таблицы (максимальное количество строк и столбцов) и диапазона случайных чисел.
- Создается двухмерный массив (таблица) указанного размера.
- Таблица заполняется случайными числами из заданного диапазона.
- Инициализируется переменная для хранения наибольшего найденного элемента, кратного 7, начальным значением первого элемента первой строки таблицы.
- Происходит двойной цикл по всем элементам таблицы.
- Если текущий элемент больше текущего значения переменной MaxEl и при этом кратен 7, то значение переменной MaxEl обновляется.
- Если после прохода по всем элементам таблицы значение переменной MaxEl осталось неизменным, то выводится сообщение
Not Found
, иначе выводится значение переменной MaxEl.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д