.


   HD . - sadomazosex.ru. .          


abs(u) < eps;

FF := 2*I/sqrt(2*Pi)

end

end;

{-----------------------------------------------------------------------------------------}

begin

write(' x '); readln(x);

write(' '); readln(eps);

writeln(' ', FF(x, eps):6:t(eps))

end.

.

, sinx





:



, :



.



,


n- , . .


.

Procedure

Integral(x, eps : real; var I : real);

var

n : integer;

u : real;

begin

u := x; n := 1; I := 0;

repeat

I := I + u;

n := n + 1;

u := -(u*x*x*(2*n - 3))/((2*n - 2)*sqr(2*n - 1))

until abs(u) < eps

end;



Program Problem2;

uses WinCrt;

var

I, x, eps : real;

{----------------------------------------------------------------------------------------}

Procedure

Integral(x, eps : real; var I : real);

var

n : integer;

u : real;

begin

u := x; n := 1; I := 0;

repeat

I := I + u;

n := n + 1;

u := -(u*x*x*(2*n - 3))/((2*n - 2)*sqr(2*n - 1))

until abs(u) < eps

end;

{----------------------------------------------------------------------------------------}

{ - - }

Function

t(eps : real) : integer;

var