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

sn:=0;

for i:=1 to r-1 do begin

sn:=sn+ni[i];

Form2.StringGrid1.Cells[i,1]:= ni[i];

end;

for i:=1 to r-1 do begin

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

wi[i]:=ni[i]/sn;

Form2.StringGrid1.Cells[i,2]:= wi[i];

end;

{moda}

t:=ni[1];

for i:=1 to r-1 do

if t<=ni[i] then begin

t:=ni[i];

k:=i;

end;

Edit4.text:='{';

for i:=1 to r-1 do

if t=ni[i] then begin

s1:=xi[i]+sx/2;

Edit4.text:=Edit4.Text + s1;

if k<>i then Edit4.Text:=Edit4.Text + ','

else Edit4.Text:=Edit4.Text + '}';

end;

{mediana}

if r-1 mod 2<>0 then begin

t:=r/2; s1:=w[t];

Edit6.Text:=s1;