Лабораторные работы / Машеров (13 вариант) / lab6 / Нахождение n

sigma0 := 2.4;
sigma1 := 2.9;
sqrs0 := sigma0^2;
sqrs1 := sigma1^2;
n:=100;
_alpha := 0.05;
_beta := 0.02;
k:=300;
for i:=1 to k do
begin
data(i,1) := i;
nbeta := IChi2((sqrs0/sqrs1)*VChi2(1-_alpha, 2*n),2*n);
if (abs(_beta - nbeta) < 0.001) then
begin
goto done;
end;
if ((nbeta - _beta) >0.001) and (nbeta > _beta) then
begin
k := k+1;
n := n +1;
end;
if ((_beta - nbeta) >0.001) and (nbeta < _beta) then
begin
n := n -1;
k := k+1;
end;
end;
done:
data(1,2) := nbeta;
data(2,2) := n;