тут задача не знаю к какому методу отнести

[Scorch92]

народ, простите за частоту, но тут вааще нереально для меня!) из всего что яя знаю написал только begin и end))) а тут задачка я ее в рисунок выложил так как незнаю как в символах написать

[Stepis]

Суть такова:
x=y(n)^3
1) считываешь y0,eps;
2) y(n-1):=y0;
n:=1;
y(1) вычисляешь по формуле
3) В цикле while увеличиваешь n, y(n-1):=y(n), y(n) вычисляешь по формуле. Повторяешь до тех пор, пока разность не станет меньше эпсилона.

Выглядеть должно примерно так.

uses
  SysUtils, math

  var
  yn,yk,eps,x: real;
  k:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(yk);
  readln(eps);
  K:=1;
  yn:=(0.33)*(2*yk+(power(yk,3))/sqr(yk));
  while abs(yn-yk)>eps do
    begin
    K:=K+1;
    yk:=yn;
    yn:=(0.33)*(2*yk+power(yk,3)/(sqr(yk)));
    writeln(yn);
    end;
 x:=power(yn,3);
 writeln(x);
 readln;

end.

[Scorch92]

а это паскаль? простите не указал сразу- забыл. разници нет?

[Stilet]

А нужно на чем?

[Scorch92]

'''эээ хотелось бы на паскале))), блир просто это почти последняя задача и незнаю как делать)))