Вычислить значение выражения - QBasic (27264)

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

дан массив С(8,4) нужно найти: V=(maxC(i,j)+minC(i,j))/2 желательно через DIM, DATA и т.д.

Решение задачи: «Вычислить значение выражения»

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

CLS
m = 8
n = 4
DIM c(1 TO m, 1 TO n) AS INTEGER
DATA 1,-2,3,4
DATA 5,9,0,-5
DATA 8,7,5,-2
DATA 8,9,-4,2
DATA 8,-1,1,1
DATA 0,8,5,5
DATA -8,5,7,7
DATA 19,5,2,1
 
FOR i = 1 TO m
FOR j = 1 TO n
   READ c(i, j)
   PRINT c(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
max = c(1, 1)
min = max
 
FOR i = 1 TO m
FOR j = 1 TO n
   IF max < c(i, j) THEN max = c(i, j)
   IF min > c(i, j) THEN min = c(i, j)
NEXT j, i
 
PRINT "V ="; (max + min) / 2
END

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

Программа на языке QBasic вычисляет значение выражения.
Переменные m и n задают размеры массива c(1 TO m, 1 TO n) AS INTEGER.
Массив c(1 TO m, 1 TO n) AS INTEGER содержит значения, которые нужно обработать.
Значения массива c(1 TO m, 1 TO n) AS INTEGER заданы с помощью команды DATA.
Циклы FOR i = 1 TO m и FOR j = 1 TO n используются для обработки каждого элемента массива c(1 TO m, 1 TO n) AS INTEGER.
READ c(i, j) используется для чтения значений из массива c(1 TO m, 1 TO n) AS INTEGER.
PRINT c(i, j); используется для вывода значений из массива c(1 TO m, 1 TO n) AS INTEGER.
max и min используются для хранения максимального и минимального значений массива c(1 TO m, 1 TO n) AS INTEGER соответственно.
Циклы FOR i = 1 TO m и FOR j = 1 TO n используются для поиска максимального и минимального значений в массиве c(1 TO m, 1 TO n) AS INTEGER.
IF max < c(i, j) THEN max = c(i, j) и IF min > c(i, j) THEN min = c(i, j) используются для обновления значений max и min соответственно.
PRINT V =; (max + min) / 2 используется для вывода значения V.
END заканчивает программу.