.


- - 3


. , :

, 1 - x =3 - 2x - x2, : x1 = -2, x2 = 1. : (-2; 3) (1; 0).

(-2; 0), (-2; 4), (1; 4) (1; 0) (. . 40).

. 40

:

"" , : x := random*3 - 2 y := random*4.

, ""

""
:

 

Program Problem8;

uses WinCrt;

var

x, y, s, e, pp : real;

i, n, m : longint;

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

{ 頠 }

{ 0 x. - }

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;

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

{ - }

{ 蠠 }

Procedure

NumberExperiment(e, PP : real; var n : longint);




- -  - -  - -