Вычисление целого корня N-ой степени, задачка! Опции

[eprsteklmn]

Здравствуйте... Я сам "не местный" - мозгов мало... а жить хочется...помогиииите христа ради :D :D :D
вот задачка (даю в виде изображения)
http://epr2.stsland.ru/2.jpg


и ответ этой задачки...
http://epr2.stsland.ru/1.jpg


и как уже понятно, надо ето реализоватть на Паскале....
пасиба, пока...

Сообщение отредактировано: volvo - 11.05.2005 13:51

[klem4]

может вот это ?

{$n+}
uses crt;
var n,k:integer;
    eps,d,x,y:extended;
begin
   clrscr;
   write('eps='); readln(eps);
   write('n=');readln(n);
   write('x=');readln(x);
   k:=0;
   y:=x;
   repeat
      d:=(x/exp((n-1)*ln(y))-y)/n;
      k:=k+1;
      y:=y+d;
   until abs(d)<=eps;
   writeln('Koren ',n,' stepeni iz ',x:3:3, ' raven ',y:3:3);
   writeln('Kolvo iteracii = ',k);
   readln;
end.

я не уверен что это тот метод который нужен.

мде не то.

Сообщение отредактировано: klem4 - 11.05.2005 17:33