Цитата:
Сообщение от Sistemshik
Процедура нахождения отрезка, на котором нелинейное уравнение вида 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.