Слайд 5
![Программа в Паскаль program mdp; function f(x: real): real; begin f:](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1457848/slide-4.jpg)
Программа в Паскаль
program mdp; function f(x: real): real; begin f: =exp(x*ln(2))-4*x;
end;
Var a, b, e, c, x: real; begin write('a=‘); read(a); write('b=‘); read(b); write ('e=‘); read(e); c: =(a+b)/2; while(b-a)>e do
Begin if(a)*f(c)<0 then b: =c else a: =c; writeln ('a=', a:3:4, 'b=', b:3:4, 'f(a)=', f(a):6:9, 'f(b)=',f(b):6:9); c: =(a+b)/2; end;
x: =(a+b)/2; writeln ('x= ‘, x:3:3,' f(x)= ‘, f(x):4:4); readln; end.