| Вопрос: поиск максимального числа | Добавлено: 02.04.07 21:11 |
Автор вопроса:  KreAtoR
|
| Задача надо сравнить числа и узнать какое из них самое большое |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #1 | Добавлено: 02.04.07 22:57 |
| Актульано ли будет решение на счетных палочках? | ||
|
Номер ответа: 2 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #2 | Добавлено: 02.04.07 23:11 |
|
For h = 1 To 454
If fo(rst) < fo(fo) Then rst = h Next h msgbox fo(rst) вроби так. К концу цикла видаст |
||
|
Номер ответа: 3 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #3 | Добавлено: 02.04.07 23:13 |
|
да забил
fo() - масив For h = 1 To 454
454-ставиш число какое нада |
||
|
Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 03.04.07 15:14 |
| Решение: перечисляешь все числа, и если какое-нибудь из них больше чем N, то присваиваешь числу N это значение и идешь дальше по списку. | ||
|
Номер ответа: 5 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #5 | Добавлено: 03.04.07 21:45 |
| ну я так и сделал сенкс | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 03.04.07 21:49 |
KreAtoR прираждённый MS программист  А в .NET есть фстроенная ф-ция для реализации сабжа? ))))
|
||
|
Номер ответа: 7 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #7 | Добавлено: 03.04.07 22:38 |
|
Public Shared Sub Sort(Of T)(ByVal array() As T)
Member of: System.Array Summary: Sorts the elements in an entire System.Array using the System.IComparable(Of T) generic interface implementation of each element of the System.Array. И потом берешь последний элемент массива.. Либо в Namespace Math есть примочка специальная.. ))) |
||
|
Номер ответа: 8 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #8 | Добавлено: 03.04.07 22:50 |
|
А вот экзотика, закидывай все в List и сортируй.
Последняя цифра наибольшая. Sub ReSort(L As Control)
' Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt% Dim TempL$, TempItemData&, S1$ ' For P = 0 To L.ListCount - 1 S = L.List(P) For C = 1 To Len(S) V = Val(Mid$(S, C)) If V > 0 Then Exit For Next If V > 0 Then If C > 1 Then Pre = Left$(S, C - 1) NewPos = -1 For PP = P + 1 To L.ListCount - 1 CheckIt = False S1 = L.List(PP) If Pre <> "" Then If InStr(S1, Pre) = 1 Then _ CheckIt = True Else If Val(S1) > 0 Then CheckIt = True End If If CheckIt Then If Val(Mid$(S1, C)) < V Then _ NewPos = PP Else Exit For End If Next If NewPos > -1 Then TempL = L.List(P) TempItemData = L.ItemData(P) L.RemoveItem (P) L.AddItem TempL, NewPos L.ItemData(L.NewIndex) = TempItemData P = P - 1 End If End If Next End Sub А вообще, очень нужнывй код для сортировки чисел. Может когда нибудь и пригодится. Да вот вызов Call ReSort(List1)
|
||
|
Номер ответа: 9 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #9 | Добавлено: 04.04.07 01:27 |
|
Public Shared Sub Sort(Of T)(ByVal array() As T)
Member of: System.Array Summary: Sorts the elements in an entire System.Array using the System.IComparable(Of T) generic interface implementation of each element of the System.Array. И потом берешь последний элемент массива.. Либо в Namespace Math есть примочка специальная.. ))) This method uses the QuickSort algorithm. This implementation performs an unstable sort; that is, if two elements are equal, their order might not be preserved. In contrast, a stable sort preserves the order of elements that are equal. On average, this method is an O(n log n) operation, where n is the Length of array; in the worst case it is an O(n ^ 2) operation. Быстрее будет перебрать все элементыв поисках наибольшего. В этом случае будет просто O(n) |
||
|
Номер ответа: 10 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #10 | Добавлено: 04.04.07 15:03 |
| Я думал, реплики закончатся на посту номер 5. | ||
|
Номер ответа: 11 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #11 | Добавлено: 04.04.07 15:21 |
| A я думал на 3 закончм | ||
|
Номер ответа: 12 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #12 | Добавлено: 04.04.07 16:30 |
| Вы ошибались... | ||
Страница: 1 |