Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Помогите решить простую задачку

Автор: shefsky 19.2.2003, 05:29

Задача.
Имеется последовательность из N отрицательных чисел.
Требуется найти среди них максимальное.
Составить алгоритм и его програмные реализации на
естественном языке и на языке VBA.
Заранее спасибо.

Автор: cardinal 19.2.2003, 05:57

Цитата

Имеется последовательность из N отрицательных чисел.

Ну и где она имеется. С массивами работать можно? Или нет никаких ограничений по реализации?
Если делать можно как угодно, то пиши - сляпаем как не фиг делать

Автор: Asp root 19.2.2003, 19:12

Цитата(cardinal @ 18.2.2003, 21:57)

сляпаем как не фиг делать

Это точно!
Токо поточнее опиши как надо откуд чего брать?

Автор: cardinal 20.2.2003, 10:27

Ну например вот так:

Код

Option Explicit
Private massiv(9) As Integer

Private Sub Command1_Click()
Dim n As Integer
n = take(massiv)
End Sub

Private Sub Form_Load()
massiv(0) = -14
massiv(1) = -51
massiv(2) = -3
massiv(3) = -34
massiv(4) = -41
massiv(5) = -6
massiv(6) = -17
massiv(7) = -8
massiv(8) = -4
massiv(9) = -72
End Sub

Private Function take(n() As Integer) As Integer
Dim a As Integer
Dim b As Integer
b = n(0)
For a = 1 To 9
    If n(a) > b Then
        b = n(a)
    End If
Next
take = b
End Function

Помоему комментарии тут не нужны

Хотя если надо, то напишем