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

t:=sx;

Edit13.Text:=t;

{Assymetrija}

if tx<>0 then sx:=sx/(sqrt(tx)*sqrt(tx)*sqrt(tx));

t:=sx;

Edit10.Text:=t;

sx:=0;

for i:=1 to n do {4}

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

sx:=sx/n;

t:=sx;

Edit14.Text:=t;

{Eksces}

if tx<>0 then sx:=sx/(tx*tx)-3;

t:=tx;

Edit11.Text:=t;

{rozpodil function}

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

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

for i:=1 to m-1 do begin

sx:=sx+wi[i];

t:=sx;

s1:=t;

s2:=xi[i];

s3:=xi[i+1];