Нахождение минимального по модулю элемента в каждом столбце массива

@Student9921 · Регистрация: 24.01.2013

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

Добрый день.Помогите,пожалуйста разобраться,как найти минимальный элемент в каждом СТОЛБЦЕ.

Visual Basic
1
2
3
4
5
6
7
8
9
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, j))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
End If
Next j
Print "min="; min(m)
Next i

Что мне не понятно,так это какое значение нужно вписать сюда min(j) = Abs(a(?, ?)),что бы искало мой min по СТОЛБЦАМ.Я пробывал i,1; 1,j; j,1; Но результата так не добился
Полный код программы.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub Command1_Click()
Const n = 4, m = 4
Dim a(1 To n, 1 To m) As Single, min(m) As Single, j As Integer, i As Integer
For i = 1 To n
For j = 1 To m
a(i, j) = 9 * i ^ 2 + j ^ 2 - 50
Print Format(a(i, j), "0.000 ");
Next j
Print
Next i
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, j))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
End If
Next j
Print "min="; min(m)
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub

@Catstail · 24.01.2013, 18:06

Visual Basic
1
2
3
4
5
6
7
8
9
Sub MinCol(A() as integer)
     for i%=1 to Ubound(A,2)
         min%=A(1,i%)
         For j%=2 to Uboun(A,1)
              if A(j%,i%) < min then min=A(j%,i%)
         Next j%
         Debug.print "Столбец ";i%;" min=";min%
     Next i%
End Sub

И зачем там abs? Ведь ты же ищешь минимум, а не минимум модуля.

@Student9921 · 24.01.2013, 18:19 **[ТС]**

Сообщение от Catstail

И зачем там abs? Ведь ты же ищешь минимум, а не минимум модуля.

Задача поставлена так : Найти минимальный по модулю элемент в каждом столбце.Потому и пишу abs

Добавлено через 7 минут
Catstail,я студент и мне не понятно,что за % после переменных,unbound - ???

@Catstail · 24.01.2013, 18:26

Ну, раз по модулю, тогда:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub MinCol(A() as integer)
     for i%=1 to Ubound(A,2)
         min%=abs(A(1,i%))
         For j%=2 to Uboun(A,1)
              if abs(A(j%,i%)) < min then min=abs(A(j%,i%))
         Next j%
         Debug.print "Столбец ";i%;" min=";min%
     Next i%
End Sub

Процент означает, что переменные имеют тип Integer

@Student9921 · 24.01.2013, 18:28 **[ТС]**

Сообщение от Catstail

For j%=2 to Uboun(A,1)

здесь же unbound тоже должно быть?

24.01.2013, 18:30

Извините, я только учусь.

@Student9921 · 24.01.2013, 18:36 **[ТС]**

Catstail, мне трудно вас понять.Я не могу на основе вашей помощи,пофиксить свою программу.
Я работаю в среде vb6,и когда я ввожу ваш код,подсвечивает unbound

@Catstail · 24.01.2013, 18:42

Да, виноват. В строке 5 должно быть:

Visual Basic
1
For j%=2 to Ubound(A,1)

@Student9921 · 24.01.2013, 19:03 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(2, i))
If Abs(a(j, i)) < min(j) Then
 min(j) = Abs(a(j, i))
End If
Next j
Print "min="; min(m)
Next i

Вот как сделал я
Но,это же я "попросил" выводить элементы во второй строке,к моему счастью,они оказались минимальными по модулю.
Сомнения остались =/
Добавил полный код программы.Что бы вы увидили полную картину)

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub Command1_Click()
Const n = 4, m = 4
Dim a(1 To n, 1 To m) As Single, min(m) As Single, j As Integer, i As Integer
For i = 1 To n
For j = 1 To m
a(i, j) = 9 * i ^ 2 + j ^ 2 - 50
Print Format(a(i, j), "0.000 ");
Next j
Print
Next i
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(2, i))
If Abs(a(j, i)) < min(j) Then
 min(j) = Abs(a(j, i))
End If
Next j
Print "min="; min(m)
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub

Добавлено через 6 минут
не думаю,что мой вариант правильный

Добавлено через 6 минут
Остался без ответа =/

@Catstail · 24.01.2013, 19:43

Сообщение от Student9921

не думаю,что мой вариант правильный

- правильно думаешь.

Я же тебе все расписал:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub MinCol(A() As Integer)
     For i% = 1 To UBound(A, 2)
         Min% = Abs(A(1, i%))
         For j% = 2 To UBound(A, 1)
              If Abs(A(j%, i%)) < Min Then Min = Abs(A(j%, i%))
         Next j%
         Debug.Print "Ñòîëáåö "; i%; " min="; Min%
     Next i%
End Sub
 
Sub Test()
 
Dim A(1 To 10, 1 To 5) As Integer
 
    Randomize
    
    For i% = 1 To 10
        For j% = 1 To 5
            A(i%, j%) = Rnd() * 100
        Next j%
    Next i%
    
    For i% = 1 To 10
        For j% = 1 To 5
            Debug.Print A(i%, j%),
        Next j%
        Debug.Print
    Next i%
            
    MinCol A()
 
End Sub

Результат на картинке

@Student9921 · 24.01.2013, 20:15 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
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 Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

ADIDAS78
	24.01.2013, 18:30
	Извините, я только учусь.

@Student9921 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 6
	24.01.2013, 18:36 [ТС]
	Catstail, мне трудно вас понять.Я не могу на основе вашей помощи,пофиксить свою программу. Я работаю в среде vb6,и когда я ввожу ваш код,подсвечивает unbound 0

@Student9921 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 6
	24.01.2013, 20:15 [ТС]
	Спасибо 0