метод касательных

[gest]

Добрый день, помогите плз решить задачу методом касательных:
Найти корень уравнения(уточнив при необходимости диапазон [A-B]).
9.23*Ln(x+9.67)+55.03=0 на отрезке от А=-4.33 до В=-8.67 методом касательных. Точность решения EPS: 0.0042

[Ol'ga_new]

Недавно был такой ответ:

Сообщение от eoln

Куча примеров можно было бы найти, если бы многие не создавали таких тем и не засоряли всё, а то в результате поиска по методу касательных большинство тем не содержат ответа...

function Func(x: double): double;
begin     
  Func := (x*x*x*x-3*x*x+75*x-10000)/(4*x*x*x-6*x+75)//не использовал sqr или exp(..ln..) 
end;
var
  e, f, f0: double;
begin
  e := 0.000001;
  f0 := -11;
  repeat
    f := f0;
    f0 := f - Func(f)
  until abs(f - f0) <= e;
  write('x = ', f0:0:6);
  readln
end.

сможешь переделать?

[gest]

Нет, в этом примере как то урезано всё, мне нужна полная прога

[nicni]

действительно, не могли бы составить полную программу? у меня аналогичный случай, только немного другие числа