[koroleva25]

Здравствуйте! Пишу программу Генератор случайных чисел Методом Середины Квадратов на 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); // Дисперсия