Поиск минимума среди элементов массива

@Инна31 · Регистрация: 06.10.2013

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

Возникла проблема с работой функции поиска минимума среди элементов массива.
Если для поиска максимума данный код работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function MNom(Mas(), N As Integer) As Currency
Dim i As Integer
Dim nom As Integer
nom = 1
For i = 1 To N
If Mas(i) > Mas(nom) Then nom = i
Next i
MNom = nom
End Function
Function Maxim(Mas(), N As Integer) As Currency
Dim MAX As Integer
Dim i As Integer
Dim nom As Integer
nom = MNom(Mas, N)
MAX = Mas(nom)
Maxim = MAX
End Function

то для поиска минимума аналогичный код не работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Minim(Mas(), N As Integer) As Currency
Dim Min As Integer
Dim i As Integer
Dim nom As Integer
nom = MinNom(Mas, N)
Min = Mas(nom)
Minim = Min
End Function
Function MinNom(Mas(), N As Integer) As Currency
Dim i As Integer
Dim nom As Integer
nom = 1
For i = 1 To N
If Mas(i) < Mas(nom) Then nom = i
Next i
MinNom = nom
End Function

Что не так?

@Igor_Tr · 29.11.2013, 18:26

А зачем так сложно? Это чем-то вызвано? В Excel есть функция min и max (кстати, это "служебные" слова, а Вы так называете переменные. Не запутаетесь?). Почему не использовать в VBA?
Maxim=application.max(mas)
Minimum=application.min(mas)
И все.

@Инна31 · 29.11.2013, 19:04 **[ТС]**

Необходимо по условию использовать именно данную функцию.

@Апострофф · 29.11.2013, 19:12

Инна31, Вы бы приложили ещё пример вызова данных функций, а то в самом деле огород какой-то

@Igor_Tr · 29.11.2013, 21:17

И кто Вам дал именно такие условия (или функции)? Если честно - не очень понимаю, что именно Вы делаете.
В функцию Function MNom(Mas(), N As Integer) As Currency Вы передаете какой-то массив и какую-то цифру N. А что это за цифра, откуда? Потом определяете индекс максимума переданого массива, а в другой функции используете этот индекс - не могу понять для чего. Ну и там дальше...

Добавлено через 1 час 57 минут
to Инна31. Если Вам действительно задали именно так - то я немного удивлен. Только запутают. Вот, где-то приблизительно:

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

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
33
34
35
36
37
38
Sub TEST()
  Dim mARR(), i&
   ReDim mARR(1 To CLng(InputBox("Write down size of array", , 20))): Randomize
   For i = LBound(mARR) To UBound(mARR):    mARR(i) = Int((10000 * Rnd()) + 1) / 100: Next 'i
   i = MNom(mARR)
   MsgBox "INDEX of maximum:" & Space(1) & i & Chr(13) & Chr(13) & _
                     "MAXIMUM:" & Space(3) & Maxim(mARR, i)
   i = MinNom(mARR)
   MsgBox "INDEX of minimum:" & Space(1) & i & Chr(13) & Chr(13) & _
                     "MAXIMUM:" & Space(3) & Maxim(mARR, i)
   Erase mARR:  MsgBox Space(10) & "D O N E!"
End Sub
 
Function MNom(Mas()) As Integer
Dim ii As Integer, nom As Integer, mMAX As Double
   mMAX = Mas(1)
   For ii = LBound(Mas) + 1 To UBound(Mas)
      If Mas(ii) > mMAX Then mMAX = Mas(ii): nom = ii
   Next 'ii
MNom = nom
End Function
 
Function Maxim(Mas(), N) As Currency
   Maxim = Mas(N)
End Function
 
Function MinNom(Mas()) As Integer
Dim ii As Integer, nom As Integer, mMIN As Double
   mMIN = Mas(1)
   For ii = LBound(Mas) + 1 To UBound(Mas)
      If Mas(ii) < mMIN Then mMIN = Mas(ii): nom = ii
   Next 'ii
MinNom = nom
End Function
 
Function Minim(Mas(), N As Integer) As Currency
   Minim = Mas(N)
End Function

Запускайте TEST

@Catstail · 29.11.2013, 21:22

Код совершенно правильный. Видимо, это проблемы вызывающей функции.

@Инна31 · 29.11.2013, 22:06 **[ТС]**

Спасибо всем! Я разобралась.

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	29.11.2013, 18:26
	А зачем так сложно? Это чем-то вызвано? В Excel есть функция min и max (кстати, это "служебные" слова, а Вы так называете переменные. Не запутаетесь?). Почему не использовать в VBA? Maxim=application.max(mas) Minimum=application.min(mas) И все. 0

@Инна31 172 / 3 / 1 Регистрация: 06.10.2013 Сообщений: 14
	29.11.2013, 19:04 [ТС]
	Необходимо по условию использовать именно данную функцию. 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	29.11.2013, 19:12
	Инна31, Вы бы приложили ещё пример вызова данных функций, а то в самом деле огород какой-то 0

@Catstail Супер-модератор 38194 / 21127 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	29.11.2013, 21:22
	Код совершенно правильный. Видимо, это проблемы вызывающей функции. 0

@Инна31 172 / 3 / 1 Регистрация: 06.10.2013 Сообщений: 14
	29.11.2013, 22:06 [ТС]
	Спасибо всем! Я разобралась. 0