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

Graph2.RandomData:=0;

Graph2.GraphTitle:='Полігон';

Graph2.GraphType:=6;

Graph2.NumPoints:=m;

for i:=1 to m do begin

Graph2.Data[i]:=ni[i];

Graph2.XPosData:=xi[i];

end;

Graph3.RandomData:=0;

Graph3.GraphTitle:='Діаграма';

Graph3.GraphType:=6;

Graph3.GraphStyle:=2;

Graph3.NumPoints:=m;

for i:=1 to m do begin

Graph3.XPosData:=xi[i];

Graph3.Data[i]:=ni[i];

end;

Graph4.RandomData:=0;

Graph4.GraphTitle:='Функція розподілу';

Graph4.GraphType:=6;

Graph4.NumPoints:=2*m+2;

fi := VarArrayCreate([0,2*m+2], varDouble);

nxi := VarArrayCreate([0,2*m+2], varDouble);

for i:=1 to m do begin

sx:=wi[i]+sx;