Решить уравнение методом хорд( нужен ответ - программа работает правильно?)

[alilar]

Методы решения скалярных уравнений. С точностью до E=0.0001 найти ко-рень уравнения, локализованный на(0.5;2) методом хорд

х3-х2-9х+9=0

uses crt;
function f(x:real):real;
begin
f:=x*x*x-x*x-9*x+9;
end;
var xn,xk,p,e:real;
begin
clrscr;
repeat
write('Введите точность вычислений ) e=');
readln(e);
until (e>0)and(e<0.1);
xn:=0.5;
xk:=2.0;
repeat
p:=(f(xk)*xn-f(xn)*xk)/(f(xk)-f(xn));
if abs(f(p))<=e then
 begin
  writeln('x=',p:0:5,'  y=',f(p):0:5);
  readln;
  exit;
 end;
if f(xn)*f(xk)>0 then xn:=p else xk:=p;
until abs((f(xk)*xn-f(xn)*xk)/f(xk)-f(xn)-p)<=e;
writeln('x=',p:0:5);
readln
end.

Просто этот метод для меня не очень понятен и мне нужно мнение, правильно ли она находит решение.

[Sciv]

Во-первых, для начала немного школьной программы: уравнение x3-x2-9x+9 вполне преобразуется в (x-1)*(x2-9)

Во-вторых:

С точностью до E=0.0001

и

until (e>0)and(e<0.1);

Вообще, если у Вас изначально по условию задачи e=0.0001, зачем городить огород и вводить с клавиатуры?

Корни уравнения: x=1, x=3, x=-3. Если у Вас что-то похожее получается - значит, правильно решает

На заданном отрезке (0.5;2) единственно правильным решением, естественно, будет 1. Попробуйте расширить диапазон до (-5;0) и (2;5) - если получите -3 и 3 соответственно, значит все ОК в программе.