Вычислить методом касательных (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.

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

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр