Определить для каждого судна месяц навигации с наибольшим процентом выполнения плана - QBasic

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

Исходные данные задаются самостоятельно в соответствии с постановкой задачи и при ее решении на ЭВМ выводятся на печать. При разработке алгоритмов необходимо представить математическую формулировку задачи. Выполнение планов перевозки грузов 5-ю судами пароходства за 6 месяцев навигации представленно в виде матрицы (5x6). Определить для каждого судна месяц навигации с наибольшим процентом выполнения плана.

Решение задачи: «Определить для каждого судна месяц навигации с наибольшим процентом выполнения плана»

Листинг программы

CLS
RANDOMIZE TIMER
n = 6
m = 5
DIM A(1 TO n, 1 TO m) AS INTEGER
DIM Max(1 TO m) AS INTEGER
DIM ind(1 TO m) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   A(i, j) = 100 * RND
   PRINT USING "   ##"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR j = 1 TO m
   Max(j) = A(1, j)
   ind(j) = 1
NEXT j
 
FOR j = 1 TO m
FOR i = 1 TO n
   IF Max(j) < A(i, j) THEN
      Max(j) = A(i, j)
      ind(j) = i
   END IF
NEXT i, j
 
FOR j = 1 TO m
   PRINT USING "   ##"; ind(j);
NEXT j
END

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

В первой части кода создается матрица A размером n на m, заполняемая случайными числами от 0 до 100.
Затем вычисляется максимальное значение в каждой строке матрицы A, а также соответствующая этому значению позиция в строке (индекс ind).
Во второй части кода происходит поиск судна с максимальным процентом выполнения плана в каждом месяце (переменная ind).