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

fi[2*i]:=sx-wi[i];

fi[2*i+1]:=sx;

nxi[2*i]:=xi[i];

nxi[2*i+1]:=xi[i];

end;

fi[2*m+2]:=1;

nxi[1]:=xi[1]-s;

nxi[2*m+2]:=xi[m]+s;

j:=0;

for i:=1 to 2*m+2 do begin

Graph4.Data[i]:=fi[i];

Graph4.XPosData:=nxi[i];

end;

end

else begin

Graph1.RandomData:=0;

Graph1.GraphTitle:='Гістограма';

Graph1.GraphType:=3;

Graph1.NumPoints:=r-1;

for i:=1 to r-1 do begin

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

Graph1.XPosData:=xi[i];

end;

Graph2.RandomData:=0;

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