const eps= 1e-3;
function f(x):real;
begin
f:=(x+1)*(x+1)*(x+1) + 2;
end;
var a,b,x,fa,fb,fx:real;
begin
a:=-3;
b:=0;
fa:=f(a);fb:=f(b);
while b-a>=eps do
begin
x:=(a+b)/2;
fx:=f(x);
if fa*fx>0 then
begin
a:=x;
fa:=fx;
end
else
begin
b:=x;
fb:=fx;
end
end;
wrieln(x)
end.
pascal уравнение
привет!помогите решить последнюю лабу! )
найти решение уравнения y=(x+1)^3 + 2
c точностью 10^(-3) на отрезке [-3,0]
не используйте никаких сложностей,лучше пусть пострадает решение и точность!!!главное чтоб с простыми числами работало!
найти решение уравнения y=(x+1)^3 + 2
c точностью 10^(-3) на отрезке [-3,0]
не используйте никаких сложностей,лучше пусть пострадает решение и точность!!!главное чтоб с простыми числами работало!
Проще всего, ИМХО, это метод деления пополам. Берешь начальный отрезок, берешь его середину. Новым отрезком будет тот, знаки функции на концах которого не сопадают. И так, пока не достигнешь точности. Кстати, при чем тут простые числа?
Цитата: demon9999
привет!помогите решить последнюю лабу! )
найти решение уравнения y=(x+1)^3 + 2
c точностью 10^(-3) на отрезке [-3,0]
не используйте никаких сложностей,лучше пусть пострадает решение и точность!!!главное чтоб с простыми числами работало!
найти решение уравнения y=(x+1)^3 + 2
c точностью 10^(-3) на отрезке [-3,0]
не используйте никаких сложностей,лучше пусть пострадает решение и точность!!!главное чтоб с простыми числами работало!
Может я чего-то забыл или не понимаю, но по-моему это не уравнение,а функция.
плиз напишите код,зачот горит((
cпасибо