Вычисление корня методом Нютона

acrem

2e^x+2x-3=0
1 ответ

acrem

При такой функции, производная равна 2(ex + 1)
{$n+}
var
   a, eps : extended;
   X, prev : extended;
begin
   write('Начальное приближение a = '); readln(a);
   write('точность eps = '); readln(eps);
 
   X := a;
   repeat
      prev := X;
      X := prev - (2 * exp(prev) + 2 * prev - 3) / (2 * (exp(prev) + 1)); { функция / производная }
   until abs(X - prev) <= eps;
 
   writeln('Корень x = ', X:10:7);
end.