Максимальный элемент двумерного массива

@Petro29 · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Максимальный элемент                           Минимальный элемент
    двумерного массива.                                  двумерного массива.
 
CLS                                                                               CLS   
RANDOMIZE TIMER                                                  RANDOMIZE TIMER
DIM X(5, 4)                                                                    DIM X(5, 4)
   P = X(1, 1)                                                                        P = X(1, 1)
FOR i = 1 TO  5                                                              FOR i = 1 TO 5
   FOR j = 1 TO 4                                                                FOR j = 1 TO 4
X(i, j) = INT(RND(i) * 20)                                             X(I, j) = INT(RND(i) * 20)    
   LOCATE j * 2, i * 4                                                         LOCATE j * 2, i * 4
   PRINT X(i, j);                                                              PRINT X(i, j)
IF P < X(i, j) THEN P = X(i, j)                                       IF P > X(i, j) THEN P = X(i, j)
NEXT j, i                                                                         NEXT j, i
    PRINT                                                                               PRINT
PRINT “ Самое большое число: “; P                             PRINT “ Самое маленькое число: “; P

QBasic/QuickBASIC
1
2
3
4
5
    11     9     8     4     8
     5      2     4     11    17
      2     3     6      6     6
      4     7     5      5     19
Самое большое число:   19

Здесь всё нормально

QBasic/QuickBASIC
1
2
3
4
5
    18     13    19     2     1
     3      8       8      16    15
     15    14     19    17    18
      5     13     2     10     19
 Самое маленькое число:   0

А почему здесь не нормально? Ведь принцип определения min такой же, как и определение max. (Считаем, что первый
элемент массива и есть минимальный: сравниваем его при переборе циклов со всеми остальными элементами массива – со второго до последнего).
Тем более что в одномерном массиве такой принцип определения минимального значения даёт правильный результат.
А вот в двумерном массиве этот принцип почему - то не срабатывает.

echs · 26.02.2017, 13:41

Petro29

В строке 13 надо знак "<" поменять на знак ">"
Вот в этом вся разница между максимумом и
минимумом.

@Petro29 · 05.03.2017, 12:31 **[ТС]**

Ответ получен. Поменяли знак "<" на ">", результат то же самый - 0. Опять не получилось.

Добавлено через 39 минут
QBasic: Обращение 20:
Максимальный элемент Минимальный элемент
двумерного массива. двумерного массива.

CLS CLS
RANDOMIZE TIMER RANDOMIZE TIMER
DIM X(5, 4) DIM X(5, 4)
P = X(1, 1) P = X(1, 1)
FOR i = 1 TO 5 FOR i = 1 TO 5
FOR j = 1 TO 4 FOR j = 1 TO 4
X(i, j) = INT(RND(i) * 20) X(I, j) = INT(RND(i) * 20)
LOCATE j * 2, i * 4 LOCATE j * 2, i * 4
PRINT X(i, j); PRINT X(i, j)
IF P < X(i, j) THEN P = X(i, j) IF P > X(i, j) THEN P = X(i, j)
NEXT j, i NEXT j, i
PRINT PRINT
PRINT “ Самое большое число: “; P PRINT “ Самое маленькое число: “; P

11 9 8 4 8
5 2 4 11 17
2 3 6 6 6
4 7 5 5 19
Самое большое число: 19

18 13 19 2 1
3 8 8 16 15
15 14 19 17 18
5 13 2 10 19
Самое маленькое число: 0
Здесь всё нормально. А почему здесь не нормально? Ведь
принцип определения min такой же, как и
определение max. (Считаем, что первый
элемент массива и есть минимальный:
сравниваем его при переборе циклов со
всеми остальными элементами массива –
со второго до последнего).
Тем более что в одномерном массиве
такой принцип определения минимального
значения даёт правильный результат.

echs · 05.03.2017, 12:44

Petro29
Что вы написали? Такой код вообще не будет
работать.

@Petro29 · 05.03.2017, 12:47 **[ТС]**

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS   
RANDOMIZE TIMER
DIM X(5, 4)
P = X(1, 1)
FOR i = 1 TO 5
   FOR j = 1 TO 4
X(I, j) = INT(RND(i) * 20)    
   LOCATE j * 2, i * 4
   PRINT X(i, j)
IF P > X(i, j) THEN P = X(i, j)
NEXT j, i
PRINT
PRINT “ Самое маленькое число: “; P

PureBasic
1
2
3
4
5
        18     13    19     2     1
     3      8       8      16    15
     15    14     19    17    18
      5     13     2     10     19
 Самое маленькое число:   0

В программе стоит знак « > « , а результата нет. Тот же нуль!

echs · 05.03.2017, 15:22

Petro29
Ваша ошибка заключается в следующем
1) Строка 4. Вы присвоили Р значение 0. Точнее Х(1, 1)
А ведь матрица еще не заполнена. То есть все ее элементы
равны НУЛЮ !!
2) Что делать?
3) Присвоить переменной Р число, которое будет больше
любого элемента матрицы. Например Р = 1000
4) Всё теперь программа будет работать правильно.

@Petro29 · 22.03.2017, 10:47 **[ТС]**

Да, по вашему ответу всё получилось. Для положительных значений массива для Р следует
задавать значение выше предполагаемого мах в массиве (в данном случае 30). А если в массиве есть отрицательные значения, тогда для Р можно задавать и единицу.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.02.2017, 13:41
	Petro29 В строке 13 надо знак "<" поменять на знак ">" Вот в этом вся разница между максимумом и минимумом. 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	05.03.2017, 12:31 [ТС]
	Ответ получен. Поменяли знак "<" на ">", результат то же самый - 0. Опять не получилось. Добавлено через 39 минут QBasic: Обращение 20: Максимальный элемент Минимальный элемент двумерного массива. двумерного массива. CLS CLS RANDOMIZE TIMER RANDOMIZE TIMER DIM X(5, 4) DIM X(5, 4) P = X(1, 1) P = X(1, 1) FOR i = 1 TO 5 FOR i = 1 TO 5 FOR j = 1 TO 4 FOR j = 1 TO 4 X(i, j) = INT(RND(i) * 20) X(I, j) = INT(RND(i) * 20) LOCATE j * 2, i * 4 LOCATE j * 2, i * 4 PRINT X(i, j); PRINT X(i, j) IF P < X(i, j) THEN P = X(i, j) IF P > X(i, j) THEN P = X(i, j) NEXT j, i NEXT j, i PRINT PRINT PRINT “ Самое большое число: “; P PRINT “ Самое маленькое число: “; P 11 9 8 4 8 5 2 4 11 17 2 3 6 6 6 4 7 5 5 19 Самое большое число: 19 18 13 19 2 1 3 8 8 16 15 15 14 19 17 18 5 13 2 10 19 Самое маленькое число: 0 Здесь всё нормально. А почему здесь не нормально? Ведь принцип определения min такой же, как и определение max. (Считаем, что первый элемент массива и есть минимальный: сравниваем его при переборе циклов со всеми остальными элементами массива – со второго до последнего). Тем более что в одномерном массиве такой принцип определения минимального значения даёт правильный результат. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	05.03.2017, 12:44
	Petro29 Что вы написали? Такой код вообще не будет работать. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	05.03.2017, 15:22
	Petro29 Ваша ошибка заключается в следующем 1) Строка 4. Вы присвоили Р значение 0. Точнее Х(1, 1) А ведь матрица еще не заполнена. То есть все ее элементы равны НУЛЮ !! 2) Что делать? 3) Присвоить переменной Р число, которое будет больше любого элемента матрицы. Например Р = 1000 4) Всё теперь программа будет работать правильно. 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	22.03.2017, 10:47 [ТС]
	Да, по вашему ответу всё получилось. Для положительных значений массива для Р следует задавать значение выше предполагаемого мах в массиве (в данном случае 30). А если в массиве есть отрицательные значения, тогда для Р можно задавать и единицу. 0