Правильно ли я использую метод касательных(Ньютона) на языке pascal?

Question

[Nikita Kotov]

Доброго времени суток! Изучаю численные методы и возникли проблемы с методом Ньютона. Взял для проверки уравнение x^4+4*x^2-3 . Ответ вроде бы выдаёт правильный но не уверен в своём решение.Подскажите что нужно добавить! Спасибо большое за помощь заранее.

Program Newton1;

function f(x:real):real;
begin
  f:=x*x*x*x+4*x*x-3; {Здесь приводим выражение для вычисления функции }
end;   

function f1(x:real):real;  
begin 
  f1:=3*x*x*x+8*x; {Здесь приводим выражение для производной функции }
end;
   
var
  e, x: real;
  
begin
  write ('Начальное приближение:'); 
  readln(x);
  write ('Точность:'); 
  readln(e);

repeat
  x:=x- f(x)/f1(x);
until abs(f(x))< e;

  writeln ('x=',x:3:3,' f(x)=',f(x):4:4);
end.

Comments

[Dimonchik]

эх, молодость
repeat until
GOTO

скаже преподу, что пора бы Питон, область объявления , конечно, дисциплинирует, но в остальном...

[Nikita Kotov]

dimonchik2013, полностью согласен,что пора бы и питон!но что требуют,то и выполняем: )