VBNet - Форум - Минимальный среди положительных

Вопрос: Минимальный среди положительных Добавлено: 27.05.10 21:43

Автор вопроса: ovel

Помогите в Visual Basic создать одномерный массив и найти минимальный элемент среди положительных. Найти минимальный легко, а вот как сделать чтоб среди положительных?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 27.05.10 21:50
	Найти минимальный легко, а вот как сделать чтоб среди положительных? тебе нужно их проверять на положительность if arr(N) > 0 then Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 27.05.10 22:09
	Без изяществ: Dim mass(1 to 100) as long 'Абстракный какой-нибудь массив Dim Coo As Long 'То, что ты ищешь, смекаешь? Dim i As Long 'Для добавки Dim LastC as Long 'Ищем первый попавшийся положительный элемент For i = 1 To 100 if mass(i) > 0 Then lastC = mass(i): Exit For next i 'Ищем минимальный For i = 1 to 100 if mass(i) > 0 And Mass(i) < lastc then lastc = mass(i) next Msgbox lastc Вот. Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 28.05.10 00:55
	я бы, вместо # 'Ищем первый попавшийся положительный элемент # For i = 1 To 100 # if mass(i) > 0 Then lastC = mass(i): Exit For # next i поставил lastC = 2147483647 Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #4	Добавлено: 28.05.10 09:56
	Ну или так) С бодуна раста плохо соображает) Ответить

Номер ответа: 5 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #5	Добавлено: 28.05.10 11:46
	бывает)) Ответить

Страница: 1 |