Как найти из энного числа чисел наибольшее?

[sufffa]

Вобщем есть эн чисел, а как из них найти самое большое?

Заранее спс

[xolod]

Поместить в массив, в цикле сравниваться значения с эталоном (заведомо самым меньшим значением), если больше, запоминать число(или индекс массива) и эталон приравнивать к этому числу. К концу массива у тебя будет самое большое число.

[sufffa]

А откуда взять этот эталлон?

[hCORe]

Код: Выделить всё

etalon = massiv(0)

если индексация массива начинается с нуля.

[sufffa]

Такс...туговато до меня доходит...
может пример приведете?

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

[hCORe]

Код: Выделить всё

'Option Rtfm On
'Option Msdn Visit
'Option Must Work

Public Sub FindMaximum()
On Error Resume Next
    Dim arrDef() As Long
    Dim sNew As String
    Dim lUb As Long
    Dim i As Long
   
    Dim lMax As Long
   
    Do
        DoEvents
        sNew = InputBox("Enter a number to add or 'X' to skip")
        If Len(sNew) Then
            If Asc(sNew) = vbKeyX Then Exit Do
            lUb = UBound(arrDef)
            If Err <> 0 Then Err.Clear
            ReDim Preserve arrDef(lUb + 1)
            arrDef(lUb) = CLng(sNew)
        End If
    Loop
   
    lMax = arrDef(0)
   
    For i = 2 To lUb
        If arrDef(i - 1) > lMax Then lMax = arrDef(i - 1)
    Next i
   
    MsgBox "Maximum Element = " & Trim$(Str$(lMax))
End Sub

[sufffa]

Ой спасибо

[Alexanbar]

Кстати, ппрямой перебор - это не самый быстрый способ нахождения минимума или максимума. Почитайте http://www.structur.h1.ru

[tyomitch]

Alexanbar, а как иначе-то? В любом случае ты должен просмотреть каждый элемент. Значит, быстрее перебора здесь ничего нет.

[Samovar]

Бьiло давно: http://bbs.vbstreets.ru/viewtopic.php?t=9880&start=0&postdays=0&postorder=asc&highlight=

[Alexanbar]

Да, похоже так. Видимо, спутал с методами сортировки

[STanli]

hCORe
Разве нельзя попроще, посто прогнать весь массив в итоге загоня в переменную наибольшее число?

Код: Выделить всё

o = chislo(0)
for i = 0 to N
if o < chislo(n) then o = chislo(n)
next i


[hCORe]

STanli, код у тебя какой-то странный. Счетчик i, а индекс берешь от n. Тем более, зачем просматривать нулевой элемент, если ты уже задал стартовое максимальное значение?

И в чем разница между этими двумя кодами:

Код: Выделить всё

lMax = arrDef(0)
   
For i = 2 To lUb
    If arrDef(i - 1) > lMax Then lMax = arrDef(i - 1)
Next i

и

Код: Выделить всё

o = chislo(0)
for i = 1 to N
if o < chislo(i) then o = chislo(i)
next i

i и (i-1) - это непринципиально

[bevaine2000]

Легче всего сделать сортировку по возрастанию в массиве, а самый последний и будет наибольшим.

[GSerg]

Нет, легче всего пройтись по всем один раз.