{* Плотность вероятности нормального распределения *}

REM basic

' Плотность вероятности нормального распределения


50 INPUT "ВВЕДИТЕ МАТОЖИДАНИЕ";М

60 INPUT "ВВЕДИТЕ ДИСПЕРСИЮ ";D

70 S = SQR(D)

80 Р = SQR(PI*2)

90 INPUT "ЗНАЧЕНИЕ ";Х

100 P1 = - (X - М)*(Х - M)/(2*D)

110 F = EXP(Pl)

120 F! = F/(S*P)

130 PRINT "ПЛОТНОСТЬ",F!

140 GoTo 90