Delphi-Help

Описание

function Mean ( const DataArray : array of Double ) : Extended;

Функция Mean возвращает среднее число из набора значений Double в DataArray.

Пример кода

var
numbers         : array[1..5] of Double;
aveVal, meanVal : Double;

begin
// Заполнение массива 5 чисел с плавающей запятой
numbers[1] :=  1.0;
numbers[2] :=  2.5;
numbers[3] :=  3.0;
numbers[4] :=  4.5;
numbers[5] := 25.0;

// Вычисление среднего этих чисел
aveVal := (numbers[1] + numbers[2] + numbers[3] +
numbers[4] + numbers[5]) / 5;

// Вычисление среднего этих чисел
meanVal := Mean(numbers);

// Показ этих значений
ShowMessage('Average = '+FloatToStr(aveVal));
ShowMessage('Mean    = '+FloatToStr(meanVal));
end;

Average = 7.2
Mean = 7.2

Примечание