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

{$R *.DFM}

procedure TForm3.FormActivate(Sender: TObject);

var i,j:integer;dx:double;nxi,fi:variant;

begin

dx:=sx;

sx:=0;

if typ=true then begin

Graph1.RandomData:=0;

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

Graph1.GraphType:=3;

Graph1.NumPoints:=m;

for i:=1 to m do begin

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

Graph1.XPosData:=xi[i];

end;

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