Здравствуйте! Пишу программу Генератор случайных чисел Методом Середины Квадратов на Delphi.
Мат.ожидание высчитывает правильно (примерно "0,5"). (Цикл мат.ожидания пока заключила в скобки)
Скажите, правильно ли я написала код для вычисления значения дисперсии D = 1/12 (~ 0,083) согласно формуле. (Скрин.) А то что-то не то высчитывает...
Код:
begin
sum2:= sum + sqr(chisla[j]-0.5);
inc(j,1);
end;
Edit6.Text:=floattostr((1/N)*sum2); // Дисперсия