Реферат: Теорія імовірностей та математична статистика

else begin

t:=(r-1)/2;

s1:=xi[t+1]+sx-sx/2;

s2:=xi[t+1]+sx+sx/2;

Edit6.Text:='[' + s1 + ';' + s2 + ']';

end;

{rozpodil function}

s2:=xi[1]; w[1]:=0;

Memo1.lines[0]:='0, x<' + s2;

for i:=1 to r-1 do begin

w[1]:=w[1]+wi[i];

t:=w[1];

s1:=t;

s2:=xi[i];

s3:=xi[i]+sx;

Memo1.lines[i]:=s1 + ', ' + s2 + '=<x<' + s3;

end;

s2:=xi[r-1];

Memo1.lines[r]:='1, x>=' + s2;

{serednie}

tx:=0;

for i:=1 to n do

tx:=tx+p[i];

ser:=tx/n;t:=ser;

Edit15.text:=t;

{Deviacia}

tx:=0;

for i:=1 to n do

tx:=tx+(p[i]-ser)*(p[i]-ser);