Максимальный, да не тот...

← →
DeepProg © (2002-08-14 19:52) [0]

Описание:

var Massiv: Array of Double; a,b:double; ... a:=MaxValue(Massiv); // присваивается максимальное значения элемента в массиве b:=MaxValue(Massiv); // должно присваиваться максимальное значение элемента в массиве, но это должен быть элемент отличный от присвоенного к переменной а.

Вопрос: КАК ЭТО СДЕЛАТЬ?

← →
TTCustomDelphiMaster © (2002-08-14 20:06) [1]

Тогда нужно самому проверять все элементы в цикле. MaxValue как раз так и работает.

← →
Jeer © (2002-08-14 22:58) [2]

Временно присвоить найденному максимальному значение минимальное значение, тогда MaxValue даст следующий максимальный элемент.
Шутка, но работает.

← →
DeepProg © (2002-08-15 16:50) [3]

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

Неужели мне только и остается, как сказал TTCustomDelphiMaster, пребирать все элементы вручную? Если это так, то Ваш код, конечно, не потребуется.

← →
Ученик © (2002-08-15 16:58) [4]

А использовать TDoubleArray из Mxarrays.pas тут не пойдет (там сортировка есть) ?

← →
Skier © (2002-08-15 17:00) [5]

>DeepProg

Можно переписать этот MaxValue
(чтобы он возвращал ещё и индекс)

Как-то так :

function _MaxValue(const Data: array of Double; var AIndex : Integer): Double; var I: Integer; begin Result := Data[Low(Data)]; AIndex := Low(Data); for I := Low(Data) + 1 to High(Data) do if Result < Data[I] then begin Result := Data[I]; AIndex := I; end; //if end;

Тогда уж лучше так

function _MaxValue2(const Data: array of Double; const Max1 :
Double): Double;
var
I: Integer;
begin
Result := Data[Low(Data)];
AIndex := Low(Data);
for I := Low(Data) + 1 to High(Data) do
if (Result < Data[I]) and (Data[I] < Max1) then
Result := Data[I];
end;

Хе-хе, спасибо, именно так я уже и сделал.

Максимальный, да не тот... Найти похожие ветки