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

Edit8.Text:=t;

{Variansa}

if n<>1 then dx:=tx/(n-1);t:=dx;

Edit9.Text:=t;

{momenty}

for i:=1 to n do {1}

dx:=dx+p[i]-ser;

dx:=dx/n;

t:=dx;

Edit7.Text:=t;

tx:=tx/n;t:=tx; {2}

Edit12.Text:=t;

dx:=0;

for i:=1 to n do {3}

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

dx:=dx/n;

t:=dx;

Edit13.Text:=t;

{Assymetrija}

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

t:=dx;

Edit10.Text:=t;

dx:=0;

for i:=1 to n do {4}

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