В заданной матрице найти наибольший из элементов, кратных 7 - QBasic

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

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

Помогите написать код, на qBasic

В заданном массиве A(N,M) найти наибольший из элементов, кратных 7.

Решение задачи: «В заданной матрице найти наибольший из элементов, кратных 7»

textual
Листинг программы
  1. CONST MaxRow = 4
  2. CONST MaxCol = 4
  3. CONST MaxRnd = 200
  4. REDIM Table(MaxRow, MaxCol)  AS INTEGER
  5.  
  6. SCREEN 10
  7.  
  8. DIM I, J AS INTEGER
  9.  
  10. RANDOMIZE TIMER
  11. 'заполняем таблицу случайным образом
  12. FOR I = 0 TO MaxRow
  13.   FOR J = 0 TO MaxCol
  14.   Table(I, J) = MaxRnd * RND
  15.   NEXT J
  16. NEXT I
  17.  
  18. DIM MaxEl AS INTEGER
  19.  
  20. MaxEl = Table(0, 0)
  21.  
  22.  
  23. FOR I = 0 TO MaxRow
  24.   FOR J = 0 TO MaxCol
  25.     IF MaxEl < Table(I, J) AND (Table(I, J) MOD 7 = 0) THEN
  26.       MaxEl = Table(I, J)
  27.     END IF
  28.   NEXT J
  29. NEXT I
  30.  
  31. IF (MaxEl MOD 7 = 0) THEN
  32.    PRINT MaxEl
  33. ELSE
  34.   PRINT "Not Found"
  35. END IF
  36.  
  37. SLEEP

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

  1. Задаются константы для размера таблицы (максимальное количество строк и столбцов) и диапазона случайных чисел.
  2. Создается двухмерный массив (таблица) указанного размера.
  3. Таблица заполняется случайными числами из заданного диапазона.
  4. Инициализируется переменная для хранения наибольшего найденного элемента, кратного 7, начальным значением первого элемента первой строки таблицы.
  5. Происходит двойной цикл по всем элементам таблицы.
  6. Если текущий элемент больше текущего значения переменной MaxEl и при этом кратен 7, то значение переменной MaxEl обновляется.
  7. Если после прохода по всем элементам таблицы значение переменной MaxEl осталось неизменным, то выводится сообщение Not Found, иначе выводится значение переменной MaxEl.

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


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

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

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

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

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

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