Ââåäèòå ñðåäíåå êâàäðàòè÷åñêîå îòêëîíåíèå
until FF(x) >= PP
end;
{----------------------------------------------------------------------------------------}
begin
write(' Ââåäèòå ñðåäíåå êâàäðàòè÷åñêîå îòêëîíåíèå '); readln(c);
write('Ââåäèòå âåðîÿòíîñòü ïîïàäàíèÿ â èíòåðâàë, ñèììåòðè÷í. M(X) ');
readln(PP);
Argument(PP, x);
l := 2*c*x;
writeln('Äëèíà èñêîìîãî èíòåðâàëà ðàâíà ', L:4:6)
end.
Îòâåò ê çàäà÷å 2 çàäàíèÿ
Óêàçàíèå
Ïî ôîðìóëå (6) íàõîäèì
Îòâåò
0.06.
Program Exercise_Normal2;
uses WinCrt;
var
PP, x, a, d, e, c : real;
{----------------------------------------------------------------------------------------}
{ Ôóíêöèÿ Ìóàâðà-Ëàïëàñà }
Function FF(x : real) : real;
var
n : integer;
u, I : real;
begin
if x >= 5
then FF := 1
else if x <= -5
then FF := -1
else
begin
u := x; n := 0; I := 0;
repeat
I := I + u;
n := n + 1;
u := -u*(x*x*(2*n - 1)/(2*n*(2*n + 1)))
until
abs(u) < 0.00001;
FF := 2*I/sqrt(2*Pi)
end
end;
{----------------------------------------------------------------------------------------}
{ Ïðîöåäóðà íàõîæäåíèÿ àðãóìåíòà x }
Procedure Argument(PP : real; var
x : real);
begin
x := 0;
repeat
x := x + 0.0001
until FF(x) >= PP
end;
{----------------------------------------------------------------------------------------}
begin
write('Ââåäèòå ñðåäíåå çíà÷åíèå ');
writeln('íîðìàëüíî ðàñïðåäåëåííîé ñëó÷àéíîé âåëè÷èíû a = M(X) ');
