[Pascal] Комбинированный метод хорд и касательных

[Максим139]

Задали группе лабораторную. Естественно кому-то легче попалось, кому-то сложнее. Мне выпало такое:
Уточните корень уравнения е^х – 10х = 0 на отрезке [a, b] комбинированным методом хорд и касательных.
Мы такого не проходили, в интернете ничего понятного не нашёл. Препода это не волнует (Программу обучения нарушать якобы нельзя, а ему-то с его стажем кажется, что это детская забава). Короче паника, как решить?
Заранее спасибо!

[gaw4]

метод хорд дает значение корня с недостатком, а метод касательных - с избытком
комбинированный - как бы усредняет погрешность

[gaw4]

как вариант /АВС/

Program ex1;
Uses crt;
var a,b:real;
   e,e1:real;
      x0,x1,x2:real;
       i,n,k:integer;

function f(var x:real):real;
begin
f:=Exp(x)-10*x;            //функция
end;

function f1(var x:real):real; //первая производная
begin
f1:=exp(x)-10;
end;

function f2(var x:real):real; //вторая производная
begin
f2:=exp(x);
end;

begin
clrscr;
// графически уточняем корни
// х1є(0,2)   x2є(2,5)

 write('vvedi levuyu granicu  '); readln(a);
 write('vvedi pravuyu granicu  '); readln(b);
 write('vvedi eps '); readln(e);
 k:=0;
  if f(a)*f2(a)>0 then x0:=a else x0:=b;

     x1:=x0-f(x0)/f1(x0);
     x2:=a-((b-a)*f(a)/(f(b)-f(a)));
     e1:=(x1+x2)/2;
      while  abs(e1-x1)>e do
        begin
         a:=x1;
         b:=x2;
         x1:= a-f(a)/f1(a);
         x2:= a-((b-a)*f(a)/(f(b)-f(a)));
         e1:=(x1+x2)/2;
         inc(k);
         writeln(k,'    ',x1:10:8);
        end;
writeln ( 'x=',x1:10:8);

readln
end.

[Максим139]

Всем спасибо! И понял, и написал :D