Решить нелинейное уравнение методом дихотомии - Turbo Pascal
Формулировка задачи:
Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно
x^3+cos(8*x)=0
Три точности: E_1=0.00001, E_2=0.0000001, E_3=0.00000001
Решение задачи: «Решить нелинейное уравнение методом дихотомии»
textual
Листинг программы
Const eps=0.00001;
Var a,b,x:real;
Function F(x:real):real;
Begin
F:=x*x*x+cos(8*x);
End;
Function Dixtom(a,b:real):real;
Var x:real;
Begin
Repeat
x:=(a+b)/2;
if f(a)*f(x)<=0 then b:=x
else a:=x;
Until abs(b-a)<eps;
Dixtom:=(a+b)/2;
End;
Begin
a:=0;b:=1;
x:=Dixtom(a,b);
writeln('Корень = ',x:10:6);
writeln('F(x) = ',F(x):10:6);
End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д