Лабораторные работы / Машеров (13 вариант) / lab4 / ZadachaKod

sigma1 := 2;
sigma2 := sqrt(6);
n1 :=5;
n2 := 10;
c :=( (sigma1^2) * (sigma2^2)) / (n2*(sigma1^2) + n1*(sigma2^2));

sum1 := 0;
for i:=1 to n1 do
sum1 := sum1 + data(i,1);


sum1 := sum1/(sigma1^2);

sum2 := 0;
for i:=1 to n2 do
sum2 := sum2 + data(i,2);

sum2 := sum2/(sigma2^2);

a := c * (sum1 + sum2);
data(401,1) := c;
data(401,2) := a;

data(402,1) := a - 2.053749* sqrt(c);
data(402,2) := a + 2.053749 * sqrt(c);