Помогите, пожалуйста, решить уравнение в Паскале

[VaiLet]

Помогите, пожалуйста, решить уравнение в Паскале

методом половинного деления вычислить с точностью Е корень уравнения
Pi*x^3-E*x^2+(2*E+1)*x+Pi^2=0

очень нужно)
заранее спасибо)

 

[VaiLet]

аууууу
никто не может решить??
а каким-нибудь другим способом?
отрекоз от-2 до 2

 

[Vladimir_S]

а каким-нибудь другим способом?

Так - это уже интереснее. Дело в том, что я половинное деление не признаЮ, считая его пережитком старины глубокой, а использую только десятичное. Если подойдет, то сделаю - только один вопрос: вызывает некоторое недоумение одинаковое обозначение точности и коэффициентов (Е). Это действительно так и задумано, или, может быть, в коэффициентах другое "Е", например, основание натуральных логарифмов?

 

[VaiLet]

Так - это уже интереснее. Дело в том, что я половинное деление не признаЮ, считая его пережитком старины глубокой, а использую только десятичное. Если подойдет, то сделаю - только один вопрос: вызывает некоторое недоумение одинаковое обозначение точности и коэффициентов (Е). Это действительно так и задумано, или, может быть, в коэффициентах другое "Е", например, основание натуральных логарифмов?

ну в задании стоит Е прописная,в уравнении е маленькая.
мне бы, конечно, половинным нужно, ну можно и десятичным,я просто ни то, ни другое не знаю

 

[Vladimir_S]

ну в задании стоит Е прописная,в уравнении е маленькая.

О, Боже, прости мя, грешнаго, за мысли дурныя, кровожадныя...
Значит, исходим из уравнения вида
πx³ - ex² + (2e+1)x + π² = 0
Ладно.
Пояснения.
1. Подстановкой пределов в уравнение устанавливаем, что значение левой части при х=-2 - около -39, при х=2 - около +37, т.е. при прохождении указанной области знак меняется с отрицательного на положительный.
2. Суть алгоритма: начиная с исходного значения, идем по оси "х", пока знак функции, стоящей слева в уравнении, не станет положительным. Как только это произойдет, "отпрыгиваем" по оси х назад на один шаг и повторяем процедуру, уменьшив шаг в 10 раз, и так делаем до тех пор, пока величина шага не станет меньшей заданного значения точности.

CONST
 Eps=0.00001;
VAR
 e,x,dx:Real;

Function Eq(z:real):Real;
begin
 Eq:=Pi*z*z*z-e*z*z+(2*e+1)*z+Sqr(Pi);
end;

BEGIN
 e:=Exp(1);
 x:=-2;
 dx:=1;
 REPEAT
  repeat
   x:=x+dx;
  until Eq(x)>0;
  x:=x-dx;
  dx:=dx/10;
 UNTIL dx<Eps;
 Writeln('x= ',x:8:5);
 Readln;
END.