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

Memo1.lines[i]:=s1 + ', ' + s2 + '=
end;

s2:=xi[m];

Memo1.lines[m]:='1, x>=' + s2;

for i:=1 to m do begin

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

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

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

end;

end

else begin

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

i:=1;

r:=1;

while i
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 + ')';