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

sx:=v[n]-v[1];

i:=1;

r:=1;

while i<n do begin

i:=2*i;

r:=r+1;

end;

sx:=sx/(r-1)-0.2;

xi := VarArrayCreate([0,r-1], varDouble);

ni := VarArrayCreate([0,r-1], varInteger);

wi := VarArrayCreate([0,r-1], varDouble);

w := VarArrayCreate([0,r-1], varVariant);

xi[1]:=v[1]-0.2; s1:=xi[1];s2:=v[1]+sx;

Form2.StringGrid1.Cells[1,0]:='[' + s1 + ';' + s2 + ')';

xi[r-1]:=v[n]-sx; s1:=xi[r-1];

s2:=v[n]+0.2;

Form2.StringGrid1.Cells[r-1,0]:='[' + s1 + ';' + s2 + ']';

for i:=2 to r-2 do begin

xi[i]:=xi[i-1]+sx; s1:=xi[i]; s2:=xi[i]+sx;

Form2.StringGrid1.Cells[i,0]:='[' + s1 + ';' + s2 + ']';

end;

i:=1;j:=1;

while i<n do begin

if v[i]<xi[j]+sx then begin

ni[j]:=ni[j]+1;

i:=i+1;

end

else if j<=r-1 then j:=j+1;

end;