[nattaella]

Не могу понять как работать с функцией MeanAndStdDev и как из неё получить StdDev и Mean.
procedure MeanAndStdDev(const Data:array of Double; var Mean,StdDev:Extended);
Вычисляет арифметическое среднее и стандартное отклонение для набора вещественных чисел.
Вот пример кода, который я нашла в инете:

Код:

var
Data: array of Double;
Mean,Dev: Extended;
i: byte;
begin
...
SetLength(Mas, 11);
for i:= 0 to 10 do Mas[i]:= i;
MeanAndStdDev(Data, Mean, Dev);
{Mean:=5; Div:=3.3166247903554}
...
end;

Подскажите как эти значения можно вывести

[Pilot_Red]

в процедуре:
procedure MeanAndStdDev(const Data:array of Double; var Mean,StdDev:Extended);

есть параметры, идущие за VAR, это говорит нам о том, что в эти параметры процедура возращает какие-то значения. Так что передавай в качестве параметров переменные соответствующего типа и юзай их дальнейшем!

[roamer]

Там какой-то кривой пример.
Примерно так:

Код:

Uses
  ...,
  math,
  ...;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Data : array[1..100] of double;
  Mean, StdDev: Extended;
  R : real;
  i : integer;
begin
  //----------------
  //тестовый набор
  randomize;
  for i:=1 to 100 do
   begin
     R:=random(100);
     Data[i]:=R;
  end;
  //----------------

  MeanAndStdDev(Data, Mean, StdDev); //вычисление

  ShowMessage('Мат.ожидание='+FloatToStr(Mean)+'  Средн.кв.отклонение='+FloatToStr(StdDev)); //смотрим результат

end;

Описание функции:
http://www.tspu.tula.ru/ivt/old_site...2_web/566.html