Решение нелинейных уравнений методом половинного деления - Pascal (4443)

Формулировка задачи:

e^x + ln x - 10 x = 0 Отрезок содержащий корень: [3;4] Подскажите, в какую сторону копать?

Получилось вот что:

uses crt;
function F(x,y:real):real;
begin
F:=(exp(ln(y)*x))+(Ln(x))-(10*x);
end;
var a,b,c,e,y,x:real;
begin
clrscr;
a:=3;{левая граница}
b:=4;{правая граница}
y:=3;
e:=0.000001;{точность}
if F(a,y)*F(b,y)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a,y)*F(c,y)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end
else writeln('На данном интервале корней нет, либо взят большой интервал.');
writeln('Z(x,y)=',x:0:7);
readln
end.

Результат: Z(x,y)=3.0885139 В условии задачи была оговорка, что шаг следует считать так: i=o,n Xi=X0+ih не могу понять, как это изобразить в pascal

Решение задачи: «Решение нелинейных уравнений методом половинного деления»

Листинг программы

function F(x: real): real;
begin
  F := exp(x) + Ln(x) - 10 * x
end;
const e = 1e-6;{точность}
var a, b, c, e, x: real;
begin
  a := 3;{левая граница}
  b := 4;{правая граница}
  if F(a) * F(b) < 0
    then begin
      repeat
        c := (a + b) / 2;
        if F(a) * F(c) <= 0 then b := c else a := c
      until b - a < e;
      x := (a + b) / 2;
      writeln('x = ', x:0:7)
    end
    else writeln('На данном интервале корней нет, либо взят большой интервал.');
  readln
end.

Объяснение кода листинга программы

Создается функция F, которая принимает один аргумент типа real и возвращает значение типа real. Внутри функции выполняется вычисление e^x + ln(x) - 10*x.
Объявляются две переменные const e = 1e-6;{точность} и var a, b, c, e, x: real;. Переменная e используется для точности вычислений, а переменные a, b, c, e и x используются для решения уравнения.
Задаются начальные значения переменных a = 3 и b = 4. Это левая и правая границы интервала, в котором будет решаться уравнение.
Вычисляется значение выражения F(a) * F(b) и проверяется его знак. Если значение меньше нуля, значит, на данном интервале корней нет, и цикл повторяется.
В цикле повторно вычисляется среднее значение c = (a + b) / 2.
Проверяется, какое значение из a или c используется для следующего шага. Если F(a) * F(c) <= 0, то b устанавливается равным c, иначе a устанавливается равным c.
После завершения цикла проверяется, насколько увеличились значения a и b. Если разница между b и a меньше заданной точности e, то считается, что интервал выбран правильно, и x = (a + b) / 2; выводится на экран.
Если же разница между b и a больше e, то выводится сообщение о том, что на данном интервале корней нет или интервал слишком большой.
В конце программы вызывается readln, чтобы прочитать следующую команду.