| Вопрос: Как із 100 чисел найти меньшое | Добавлено: 19.02.07 20:23 |
Автор вопроса:  D o c a l | Web-сайт: www.doc-source.pp.net.ua/ | ICQ: 408802757 |
| Помогите пожалуста кто может очень нада пишу прогу а ту т такоє. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Alexandr.R Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #1 | Добавлено: 19.02.07 21:10 |
| обьявить переменную присвоить ей занчение 1-го числа затем через цикл перебрать все числа и сравнить их с этой переменной | ||
|
Номер ответа: 2 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #2 | Добавлено: 19.02.07 21:14 |
|
Ну предположим у тебя массив из 100 чисел, правильно? Тогда код будет такой
Dim a(100) As Integer, n As Integer, rst As Integer, bf As Integer For n = 0 To 100 If a(n) < a(rst) Then rst = n Next n MsgBox rst Где a(100)-массив. Теперь rst - индекс наименьшего числа в массиве a(100) |
||
|
Номер ответа: 3 Автор ответа: Alexandr.RВопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #3 | Добавлено: 19.02.07 21:54 |
|
Private Function Test(ByVal aArray As Array) As Int32
Dim iReturnValue As Int32 Dim iLop As Int32 iReturnValue = aArray(0) For iLop = 0 To 99 If aArray(iLop) < iReturnValue Then iReturnValue = aArray(iLop) End If Next Return iReturnValue End Function |
||
|
Номер ответа: 4 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #4 | Добавлено: 20.02.07 12:33 |
| Пацани шас пополбую.Большоє спасиба!!!!!!! | ||
Страница: 1 |