| Вопрос: Помогите плз:) Огромное спасибо!!!! | Добавлено: 26.06.08 17:29 |
Автор вопроса:  Evgeniy | ICQ: 293198512 |
|
Помогите!!! Завтра нада сдавать, а я нече не понимаю(( Очень-очень нужна ваша помощь, вся надежда тока на вас!!!
Задание: 1.Ввести с клавиатуры масив из 12 чисел, определить максимальные и минимальные числа масива и вывести ответ на экран 2.составить программу на VB используя оператор цикла с счетчиком для вычесления значения Y. Значения N и M вводятся с клавиатуры. http://keep4u.ru/imgs/b/080626/f8/f88aa4d5b60f3585c9.jpg |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  s12 Вопросов: 24 Ответов: 363 |
Профиль | | #1 | Добавлено: 28.06.08 14:33 |
|
Немного опоздал, но...
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Command1_Click() Dim aMas(11) As Long, i As Byte Dim lI As Long Dim Max As Long, Min As Long 'Организуем ввод с клавиатуры For i = 0 To 11 aMas(i) = CLng(InputBox("Input nomber(" & i & "  :")
Next 'Берем первый элемент массива Call CopyMemory(lI, aMas(0), 4) 'Присваиваем его значения переменным в которых будет минимум и максимум Min = lI: Max = lI 'перебираем оставшиеся элементы массива For i = 1 To 11 Call CopyMemory(lI, aMas(i), 4) If lI < Min Then Min = lI 'если элемент меньше минимума то новый минимум 
If lI > Max Then Max = lI 'если элемент больше максимума то новый максимум Next 'Выводим результат MsgBox "MAX= " & Max & vbCrLf & "MIN= " & Min End Sub |
||
|
Номер ответа: 2 Автор ответа: s12Вопросов: 24 Ответов: 363 |
Профиль | | #2 | Добавлено: 28.06.08 14:36 |
О блин не посмотрел на форум.  )
|
||
Страница: 1 |