Курсовая работа: Теория вероятности и математическая статистика

xl:=0;

for i:=1 to m do

xl:=xl+xi[i]*pix[i];

Dxs:=0;

for i:=1 to m do

Dxs:=Dxs+sqr(xi[i]-xl)*pix[i];

Gxs:=sqrt(Dxs); Sks:=0; Exs:=0;

for i:=1 to m do

begin

pod:=xi[i]-xl;

Sks:=Sks+pod*pod*pod*pix[i]/(Gxs*Gxs*Gxs);

Exs:=Exs+pod*pod*pod*pod*pix[i]/(Gxs*Gxs*Gxs*Gxs);

end;

Exs:=Exs-3;

GotoXY(10,1);

WriteLn(' Числовые характеристики:');

GotoXY(10,5);

WriteLn('Среднестатистическое значение xl= ',xl:6:3);

GotoXY(10,8);

WriteLn('Статистическая дисперсия Dxs= ',Dxs:6:3);

GotoXY(10,11);

WriteLn('Среднестатистическое отклонение Gxs= ',Gxs:6:3);

GotoXY(10,14);

WriteLn('Скошенность Sks= ',Sks:6:3);

GotoXY(10,17);

WriteLn('Островершинность Exs= ',Exs:6:3);

ReadLn;

END.

Результат работы программы: