минимумы и максимумы

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 14:22

есть массив переменных
Код: Выделить всё
dim s(n) as single
s(1)=22,4
s(2)=11,7
...
s(n)=21,5

в каком направлении двигаться, с каким числом сравнивать значения для поиска минимально, если значения не явно присваиваются как в данном примере, а через интернет
умён и жаден,
характер отсуствует

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 18.11.2011 (Пт) 14:24

Смысл вопроса совершенно неуловим.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 14:43

что же я не уточнил, массив переменных, одномерный.
если у меня два числа на переменных тогда типо
Код: Выделить всё
if x(1)<x(2) then x(1)=min
else x(2)=min

но чисел-переменных скажем 30, что же друг с другом их переравнять?
умён и жаден,
характер отсуствует

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 18.11.2011 (Пт) 14:45

Invader писал(а):что же я не уточнил, массив переменных, одномерный.

Нормальные программисты не говорят «массив переменных». Это какой-то теплично-академический термин, по-моему.

Invader писал(а):но чисел-переменных скажем 30, что же друг с другом их переравнять?

Ты не знаешь, что ли, как найти минимальный по значение элемент массива?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 14:51

туплю, но да. я академию не заканчивал, сори...
пользуюсь только гуглом, "элегантного" решения не нашел.
ищу просто и понятно, любой пример в этом направлении
умён и жаден,
характер отсуствует

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 18.11.2011 (Пт) 14:55

Принять первый элемент за минимальные, а потом обойти элементы со 2-го по последний, и если какой-либо из них окажется меньше текущего минимального, сразу принимать его как минимальный.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 14:58

ну, а если первый окажется самым большим, то все будут меньше его - все минимальны?
умён и жаден,
характер отсуствует

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 18.11.2011 (Пт) 14:59

Когда какой-то оказывается больше текущего минимального, он сам становится текущим минимальным. Так что минимальным на всём протяжении поиска и в конце поиска оказывается только один элемент.

Код: Выделить всё
min_index = arr(lbound(arr))
for i = lbound(arr) + 1 to ubound(arr)
   if arr(min_index) > arr(i) then min_index = i
next i

msgbox "Индекс минимального элемента равен " + cstr(min_index) + ", а его значение: " + cstr(arr(min_index))

Трудно, блин?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 15:02

а кажется понял, типо если первый самый большой и скажем второй сразу себя показал как минимальный,
то отправляем заново перебор исходя что уже второй минимальный
умён и жаден,
характер отсуствует

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 18.11.2011 (Пт) 15:03

Invader писал(а):типо если

Типо код тебе ни о чём не говорит?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Invader
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 18.01.2005 (Вт) 4:22
Откуда: Молдавия, Виноград

Re: минимумы и максимумы

Сообщение Invader » 18.11.2011 (Пт) 15:04

спасибо за код, пока писал ответ Ваш код чудесным образом появился.
умён и жаден,
характер отсуствует

Yabloko9393
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 6
Зарегистрирован: 19.12.2011 (Пн) 16:37
Откуда: Томск

Re: минимумы и максимумы

Сообщение Yabloko9393 » 19.12.2011 (Пн) 17:58

Invader-умён и жаден,
характер отсуствует :D

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16118
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: минимумы и максимумы

Сообщение Хакер » 19.12.2011 (Пн) 21:11

[Хакер] :: Yabloko9393 получает ** за совокупность некрофилии и абсолютного оффтопика/флуда. Ну и испорченную с первого же сообщения репутацию, конечно же.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing-бот и гости: 8

    TopList