помогите решить в excel

[dasha99999]

нелинейное уравнение

[newerow1989]

function f(x:real):real;
begin
   Result:=x*x*x+x-10;
end;

const e=0.001;
      dx=1;
var a,b,x,d,y:real;
begin
   a:=2;
   b:=3;
   While (f(a)*f(b))>=0 do
      If f(a)<f(b) then
         a:=a-dx else
         b:=b+dx;
   Writeln('f(',a:5:5,') = ',f(a):5:5);
   Writeln('f(',b:5:5,') = ',f(b):5:5);
   Repeat
      x:=(a+b)/2;
      y:=f(x);
      If f(x)>0 then
         b:=x else
         a:=x;
      d:=Abs(f(a)-f(x));
   Until d<=e;
   Writeln('f(',x:5:5,') = ',f(x):5:5);
   Readln;
end.

Сойдет?

[dasha99999]

да спасибо

[newerow1989]

Пожалуйста!

[dasha99999]

а как этов excel набрать ?

[newerow1989]

В ячейку A1 ввести число 1
В ячейку A2 ввести формулу =A1*A1*A1+A1-10
Меню - Сервис - Подбор параметра (в версии 2003)
В окне "Подбор параметра" заполнить поля:
- Установить в ячейке: A2
- Значение: 0
- Изменяя значение ячейки: A1
Далее нажать OK

[dasha99999]

спасибо большое)))

[newerow1989]

Пожалуйста!