Program Rang_Valeurs_termes; uses wincrt; var N, i: integer; a, b, eps, y, m: real; function g(x:real):real; Begin g:= (Ln((b-a)/x)/Ln(2)) -1; end; function f(x:real):real; begin f:=Ln(x)-x*Ln(x)+x; end; Begin write ('Entrez a, a = '); readln(a); write ('Entrez b, b = '); readln(b); write ('Entrez eps, eps = '); readln(eps); y:= g(eps); N:= Trunc(y)+1; For i:=0 to N do Begin m:=(a+b)/2; if f(m)*f(a)<0 then b:=m else a:=m; End; writeln('N= ',N ); a:=a*1E+06; a:=Trunc(a); a:=a*1E-06; writeln('aN= ',a); b:=b*1E+06; b:=Trunc(b); b:=b*1E-06; writeln('bN= ',b); End.