Нахождение максимального элемента массива, исправить код

@King Leonidas · Регистрация: 09.05.2012

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

Visual Basic

Public Sub Макс_элемент(A() As Single, n As Integer, m As Integer)
    Dim i As Integer
    m = 1
    For i = 1 To n
        If A(i) > A(m) Then m = i
    Next
End Sub

Помогите понять для чего мне нужны переменные i и m. и если можно написать комментарий к каждой строке

Dragokas · 02.06.2012, 22:36

Процедура определяет индекс наибольшего значения массива.

где A() передаваемый массив, n - конечный проверяемый индекс, m - результат.
i - цикл перечисления индексов.

Индексы проверяются, начиная с 1. Хотя массивы часто заполняются с 0-го элемента.

Имхо, правильнее переписать в функцию, а можно и без переменной "I":

Visual Basic

Public Function Ìàêñ_ýëåìåíò(A() As Single, ByVal n As Integer) As Integer
Ìàêñ_ýëåìåíò = LBound(A)
For n = Ìàêñ_ýëåìåíò To n
    If A(n) > A(Ìàêñ_ýëåìåíò) Then Ìàêñ_ýëåìåíò = n
Next
End Function

Только не спрашивайте меня, как это может нормально работать.

@SoLLeR · 04.06.2012, 23:31

Судя по задаче, использовать LBound не рекомендую. Мой преподаватель такой функции не знал и отправил перепечатывать РГР

Dragokas · 05.06.2012, 02:08

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

Мой преподаватель такой функции не знал

+

А если я захочу передать в функцию массив, определенный как:

Visual Basic

1	Dim Ar(-10 to -5)

Какими средствами, кроме функции:

Visual Basic

LBound()

я получу нижнюю границу для разбора?

@ikki · 05.06.2012, 02:20

я не преподаватель SoLLeR-а, но, кажется, я знаю ответ.
определяешь функцию как

Visual Basic

1	Public Function Макс_элемент(A() As Single, otkudova As Integer, dokudova As Integer) As Integer

и скармливаешь ей и нижнюю, и верхнюю, а хочешь - северную и южную тоже.
а "машина - железяка. нельзя ей доверять мыслить самостоятельно"

Dragokas · 05.06.2012, 02:39

Нет, я придумал лучший вариант.

СПЕЦИАЛЬНО для преподавателя, который не знает функции LBound (пусть изучает эту):

Функции для определения границ массива SafeLBound, SafeUBound; определения размерности массива ArrayDims

Visual Basic

Option Explicit
 
Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As Long
 
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Public Function SafeUBound(ByVal lpArray As Long, Optional Dimension As Long = 1) As Long
Dim lAddress&, cElements&, lLbound&, cDims%
 
If Dimension < 1 Then
SafeUBound = -1
Exit Function
End If
CopyMemory lAddress, ByVal lpArray, 4
 
If lAddress = 0 Then
' The array isn't initilized
SafeUBound = -1
Exit Function
End If
' Calculate the dimensions
CopyMemory cDims, ByVal lAddress, 2
Dimension = cDims - Dimension + 1
' Obtain the needed data
CopyMemory cElements, ByVal (lAddress + 16 + ((Dimension - 1) * 8)), 4
CopyMemory lLbound, ByVal (lAddress + 20 + ((Dimension - 1) * 8)), 4
SafeUBound = cElements + lLbound - 1
End Function
 
Public Function SafeLBound(ByVal lpArray As Long, Optional Dimension As Long = 1) As Long
Dim lAddress&, cElements&, lLbound&, cDims%
 
If Dimension < 1 Then
SafeLBound = -1
Exit Function
End If
CopyMemory lAddress, ByVal lpArray, 4
 
If lAddress = 0 Then
' The array isn't initilized
SafeLBound = -1
Exit Function
End If
' Calculate the dimensions
CopyMemory cDims, ByVal lAddress, 2
Dimension = cDims - Dimension + 1
' Obtain the needed data
CopyMemory lLbound, ByVal (lAddress + 20 + ((Dimension - 1) * 8)), 4
SafeLBound = lLbound
End Function
 
Public Function ArrayDims(ByVal lpArray As Long) As Integer
Dim lAddress As Long
CopyMemory lAddress, ByVal lpArray, 4
If lAddress = 0 Then
' The array isn't initilized
ArrayDims = -1
Exit Function
End If
CopyMemory ArrayDims, ByVal lAddress, 2
End Function
 
Sub Test_Array()
Dim lHighBound#, lLowBound#, iDimensions#
'Dim aTmp()
Dim aTmp(-10 To -5, 2, 3)
lLowBound = SafeLBound(VarPtrArray(aTmp))
lHighBound = SafeUBound(VarPtrArray(aTmp))
iDimensions = ArrayDims(VarPtrArray(aTmp))
'When dealing With String arrays that isn't allocated at design time,
'you *must* add the value 4 To the lpArray-paramenter
'Хотя у меня и так нормально работает: при +4 - Excel вылетает, лучше не проверять :)
'lLowBound = SafeLBound(VarPtrArray(aTmp) + 4) 'для массивов типа String
'lHighBound = SafeUBound(VarPtrArray(aTmp) + 4) 'для массивов типа String
 
MsgBox "Lbound = " & SafeLBound(VarPtrArray(aTmp)) & vbLf & _
       "Ubound = " & lHighBound & vbLf & _
       "Dimensions = " & iDimensions
End Sub

Ей даже неинициализированный массив не страшен.

Для работы функции VarPtrArray может потребоваться библиотека Msvbvm50.dll (VB Runtime).
(подсобрал, проверил, все работает верно).

Не по теме:

Вот уж заставили меня покопаться на буржуйских сайтах :D

@SoLLeR · 05.06.2012, 08:24

Я прошу прощения, если кому–то мой пост показался критикой. Просто хотел предупредить, что есть преподаватели, которые кроме массивов и переменных вообще ни одной функции не знают. Вроде как делился горьким опытом. Мне тогда всю курсовую исчеркали за использование функций со словами: «А это что такое? Ни разу такого не видел! И почему у вас программа такая простая и короткая? Она не будет работать!» Вот так то. Всякое бывает...

@SoLLeR 2 / 2 / 0 Регистрация: 04.06.2012 Сообщений: 27
	04.06.2012, 23:31	3
	Судя по задаче, использовать LBound не рекомендую. Мой преподаватель такой функции не знал и отправил перепечатывать РГР 0

@SoLLeR 2 / 2 / 0 Регистрация: 04.06.2012 Сообщений: 27
	05.06.2012, 08:24	7
	Я прошу прощения, если кому–то мой пост показался критикой. Просто хотел предупредить, что есть преподаватели, которые кроме массивов и переменных вообще ни одной функции не знают. Вроде как делился горьким опытом. Мне тогда всю курсовую исчеркали за использование функций со словами: «А это что такое? Ни разу такого не видел! И почему у вас программа такая простая и короткая? Она не будет работать!» Вот так то. Всякое бывает... 1