Технический форум - Решить нелинейное уравнение

Цитата:

Сообщение от Sistemshik (Сообщение 422279)

Процедура нахождения отрезка, на котором нелинейное уравнение вида F (x) = 0 имеет единственный корень, базируется на следующей свойства:
*** Если функция F (x) непрерывна на де любом отрезке и монотонная, на концах этого отрезка имеет противоположные знаки, то на этом отрезке нелинейное уравнение F (x) = 0 имеет единственный корень
Решить нелинейное уравнение с точностью  = 10-4

Пожалуйста. Только есть одно "но". Дело в том, что преподы обожают и, соответственно, как правило, требуют от студентов для решения подобных задачек использовать метод половинного деления. Я же, на свой вкус, всегда применяю метод десятичного деления. Если устроит, то вот:

Код:

CONST

 Xbeg=1.7;

VAR

 X,DX:REAL;

 i:INTEGER;



Function F(Xf:Real):Real;

 begin

  F:=Xf*Xf-Ln(1+Xf)-3;

 end;



BEGIN

 DX:=1;

 X:=Xbeg;

 For i:=1 to 4 do

  begin

   DX:=DX/10;

   Repeat

    X:=X+DX;

   Until F(X)>0;

   X:=X-DX;

  end;

 WriteLn('X= ',X:7:5);

 ReadLn;

END.