begin a:=x; y:=f(b); end;

if b-a>e then goto 10;

2:writeln('x=',x:8:5);

readln;

end.

ввод:

0.1, 1.1, 1е-5

ответ:

х=0.78111

М етод хорд

y=f(x)/(f(b)-f(x))*(b-x)

program horda;

label 10;

d=|y-x|

var e,x,b,y,d:real;

x=y

function f(x:real):real;

begin

Да

f:= 2.2*x-exp(x*ln(2));

Нет

end;

y=f(x)

begin

writeln(‘введите x,b,e’);

readln(x,b,e);

10: y:=x-f(x)/(f(b)-f(x))*(b-x);

d:=abs(y-x);

x:=y;

if d>e then goto 10;

y:=f(x);

writeln('x=',x:8:5);

end.

ввод:

0.1, 1.1, 1е-5

ответ:

х=0.78110

Проверка уравнения в ППП "Eureka"

Ввод:

2.2* x - exp ( x * ln (2))=0