0

-1

1

-0,30685

2

1,197225

3

3,158883

4

5,437752

5

7,958797

6

10,67546

7

13,55609

8

16,5778

9

19,72327

10

22,97895

program p;                                                                    

var                                                                           

   a,b,n,x,h:real;                                                          

Function  f (x:real):real;                                                  begin

   f:=x*ln(x+1)-1;

end;                                                                       

begin                                                                    

   Read(a,b,n);                                                              

   h:=(b-a)/n;                                                                

   x:=a;                                                                     

   repeat                                                                    

   if f(x)*f(x+h)<0                                                              then writeln ('[',x:8:3,x+h:8:3,']');                                   x:=x+h;                                                                   

until x>b;                                                               

 end.                                                                       

program p;                                                       

  var                                                                           

       a,b,e,x,Z:real;                                                            

 Function  f (a:real):real;                                                 

   begin                                                                      

   f:=a*ln(a+1)-1;                                                         

   end;                                                                       

   begin

 read(a,b,e);  

 Repeat  x:=(b+a)/2;                                                                   

   Z:=F(X);                                                                   

   if f(a)*z<0                                                                   

   then b:=x else a:=x;                                                                            until (b-a)<=e;

   writeln('X=',X:8:3,'  f(x)=',z:8:3);                     

 end.                         

program p;                                                                   

 var                                                                         

   a,b,e,x,y:real;                                                            

   label N;                                                                   

    Function  f(x:real):real;                                                 

   begin                                                                      

   f:=x*ln(x+1)-1;                                                        

   end;                                                                       

   Function  g(x:real):real;                                                 

   begin                                                                      

    g:=ln(x+1)+x/(x+1);                                                           

  end;                                                                       

 begin                                                                       

  read (a,b,e);                                                              

  if ( a-f(a)/g(a))<b then x:=a else x:=b;                                 

   N: y:=x-f(x)/g(x) ;                                                        

   if abs(y-x)<=e then writeln('x=',y:8:3,' f(x)=',f(Y):8:3)            else begin  x:=y; GoTo N; end;                                                        

   end.