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

v := VarArrayCreate([0,n], varDouble);

p := VarArrayCreate([0,n], varDouble);

m:=0;

for i:=1 to n do begin

v[i]:=Form1.StringGrid1.Cells[i,0];

p[i]:=Form1.StringGrid1.Cells[i,0];

end;

{sorting}

k:=n;

while k<>0 do begin

for i:=n-1 downto 1 do

if v[i]>v[i+1] then begin

t:=v[i]; v[i]:=v[i+1]; v[i+1]:=t;

end;

k:=k-1;

end;

{об'єм вибірки}

xi:=n;

edit5.Text:=xi;

if typ=true then begin

w := VarArrayCreate([0,n], varDouble);

for i:=1 to n do

w[i]:=Form1.StringGrid1.Cells[i,0];

{об'єм ряду вибірки}

for i:=1 to n do

if w[i]<>-666 then begin

m:=m+1;

if i<>n then

for j:=i+1 to n do