Массив

← →
Новик (2004-01-19 12:29) [0]

Мастера Delphi!
Подскажите, PLS, как можно из массива забитого целыми, не отрицательными и не равными друг другу числовыми значениями,
вытащить без особого геммора, наименьшее значение?
Спасибо.

← →
Романов Р.В. © (2004-01-19 12:31) [1]

А тут всего один вариант имеется...

← →
Новик (2004-01-19 12:36) [2]

> Романов Р.В.
Какой? Если не секрет...

← →
TUser © (2004-01-19 12:39) [3]

перебрать и найти минимальный
i:=0; j:=Arr[0];
while not i=length(Arr) do begin
if Arr[i]<j then j:=Arr[i];
inc (i);
end;

← →
Babay © (2004-01-19 12:40) [4]

Перебрать массив в цикле и найти наименьшее значение
:=)#

З.Ы. любой учебник по любому языку программирования.

← →
Anatoly Podgoretsky © (2004-01-19 12:40) [5]

Два, в зависимости от наличия сортировки.

← →
Семен Сорокин © (2004-01-19 12:40) [6]

последовательным перебором :)
я обычно использую TList, а у него метод есть Sort.

← →
Романов Р.В. © (2004-01-19 12:40) [7]

Взять значение первго элемента как минимальное и сравнивать в цикле с остальными элементами массива. На каждом шаге из двух сравниваемых значений выбирать минимальное.

← →
Amoeba © (2004-01-19 12:44) [8]

А ты пораскинь мозгами. Нужно всего лишь написать цикл. Сперва за наименьшее значение принимаешь первый элемент массива. Затем в цикле с 2-го до последнего элемента массива сравниваешь их с этим условно минимальным и если находится меньшее, то берешь за минимум его. Код напишешь сам.

← →
Новик (2004-01-19 12:47) [9]

Спасибо, еще раз!
Я знаю, что это можно зделать перебором в цикле, но я думал, что есть и более простой метод.
> Семен Сорокин - спасибо, интересный вариант.

← →
Amoeba © (2004-01-19 12:49) [10]

Если не требуется сортировка массива - то лучше всего перебор в цикле - это быстрее всего.

← →
PVOzerski © (2004-01-19 12:50) [11]

"Более простой метод" означает одно из двух - либо это использование "более сложного метода", написанного кем-то другим и засунутого в библиотеку, либо то, что массив предварительно подготовлен к поиску (например, отсортирован в неком порядке).

Можно еще на sql :)

> Можно еще на sql :)

И гланды можно через ж... удалять.

Теоретически, то можно еще рекурсию написать

Ура! Вот уже и флейм начался.

А ещё можно алгоритм улучшить так:

min := a[0]; if min > 0 then for i:=1 to 1000 do begin if a[i] < min then begin min := a[i]; if min = 0 then break; end; end;

Теоретически, если среднее значение близко к 0 и кол-во элементов достаточно велико, то это может понизить затраты времени.

Массив Найти похожие ветки