@Thermite
Android developer

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

Доброго времени суток! Изучаю численные методы и возникли проблемы с методом Ньютона. Взял для проверки уравнение 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.
  • Вопрос задан
  • 396 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы