P1020101

double m_z»r(doublex)

X

double p,h,eps; eps=le-8;

Ja=x*le-6;

p=.l.;

■■ while (fabs(p)>reps)

■R

p=fj[x)*hy(f{x+h)-f(x));

H > | x=*x-p;

\ ^:

K źctumx;

*

double f(doflble X)* . .

• return exp(x)*2*%-3;