Метод итераций через процедуру

[leshij]

Всем привет. Дано такое задание, что решить уравнение: fx=3x^4+4x^3-12x^2+1 нужно решить его 4-мя методами в Delphi. Тремя методами вышло, а вот итерации всё не выходят.
И решить надо используя процедуру.
Помогите, подскажите как, так как уже перечитанно уйма литературы, но как-то не доходит всё ещё как решить. Да и в нете если и есть по этому методу, то через функцию, а надо через процедуру.

Не совсем доходит...

[Gambler]

алгоритм расскажи. Поможем реализовать.

[Mad_Cat]

Метод итераций

program nn;
 type f=function (z:real):real;
 var x, eps, s:real;

 function tralialia (x:real):real; far;
 begin
   tralialia:=(sin(x)/2)+1;
 end;

 function otvet (operation:f; eps:real):real;
 var itt:integer;
 z:real;
 begin
 z:=0;
 itt:=0;
 otvet:=operation (z);
 repeat
    z:=x;
    x:=operation (z);
    otvet:=x;
    inc (itt);
 until abs (z-x)<eps;
 end;
 begin
  writeln ('Vvedit tochnist');
  readln (eps);
  s:=otvet (tralialia, eps);
  writeln (S:0:10);
  readln;
 end.

ответ и есть нужная функция) в процедуру переделай сам)

[leshij]

алгоритм таков что:
исходная f(x)=0
из исходной выводим x=g(x)
x=x0 (любое значение делаем стартовым из интервала [a,b]
x1=g(x0)
x2=g(x1)
...
xi=g(xi-1)
покудо abs(f(xi))<eps

 function fx(x:single):single;
 begin
  fx:=3*sqr(x)*sqr(x)+4*x*sqr(x)-12*sqr(x)+1;
  end;
  function gx(x:single):single;
  begin
   gx:= (12*sqr(x)-4*x*sqr(x)-1)/3;
   end;

Procedure iteraciji(a:single;var xx:yyy;
                            var itt:byte);
 var    i:integer;
 fc:single;

 begin
 i:=0;

 k[i]:=a;
 repeat
  k[i+1]:=gx(k[i]);
  fc:=fx(k[i+1]);
  i:=i+1;
 

  until   abs(gx(k[i]))<eps;

   if abs(fc)>eps then xx:=floattostrf(k[i+1],fffixed,18,6)
    else
      xx:='net korna';
      itt:=i;

  end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i:byte;
begin
   eps:=strtofloat(edit4.text);
 for i:=1 to nk do
   begin
  iteraciji(a[i],xiteraciji, iter_iteraciji);
  stringgrid2.cells[7,i]:=xiteraciji;
  stringgrid2.cells[8,i]:=inttostr(iter_iteraciji);
  end;

запускаю, ввожу данные и выкидывает с Floating point overflow на строчку где fx в функции написанно