Вычислить методом касательных (Pascal)

Posted by obzor under Delphi

Вычислить методом касательных корень уравнения x^3-2x^2+x-3=0. Начальное приближение к корню 2.2. Абсолютная погрешность приближения не должна превышать e(задается преподавателем). e=0.1

Serge_Bliznykov

не знаю, правильно ли я взял производную, у меня получится такой «сложный» код:


function f(x:real) : real;
// x^3-2x^2+x-3=0
begin
  f := x*x*x-2*x*x+x-3
end;

function fp(x:real) : real;
// 3*x^2-4x+1
begin
  fp := 3*x*x-4*x+1
end;

var x, delta : real;
begin
  x := 2.2;
  repeat
    delta := f(x)/fp(x);
    x := x - delta;
  until abs(delta)<0.1;

  WriteLn('x = ',x:0:4,' f(x)=', f(x):0:4)
end.

тема на форуме