Написать рекурсивную функцию для вычисления корня k-й степени по заданной формуле

[E1337]

Требуется помощь.

[Вадим Мошев]

В чём требуется помощь? Что не получается?

[newerow1989]

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

const e=0.0001;
var yn,yn1,x,k:real;
begin
   yn1:=1;
   x:=5.8;
   k:=3.6;
   Repeat
      yn:=yn1;
      yn1:=yn+(x/step2(yn,k-1)-yn)/k;
   Until Abs(yn-yn1)<e;
   Writeln(yn1:5:8);
   Readln;
end.

Сойдет?

[E1337]

С использованием function, если не сложно, буду очень благодарен!

[newerow1989]

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function y(x,k:real;n:integer):real;
var y_:real;
begin
   If n=0 then
      Result:=1 else
   begin
      y_:=y(x,k,n-1);
      Result:=y_+(x/step2(y_,k-1)-y_)/k;
   end;
end;
//1.62953364
//const e=0.0001;
begin
   Writeln(y(5.8,3.6,50):5:8);
   Readln;
end.

У меня как-то так получилось. Сойдет?

[Аватар]

А чего фиксированное количество итераций без оценки погрешности? Так, например:

function MyPower(x,y,Eps: Real; k,n: Integer): Real;
var f,z: Real;
    i: Integer;
begin
  z:=1;
  for i:=1 to k-1 do z:=z*y;
  f:=y+(x/z-y)/k;
  if Abs(y-f)<=Eps then Result:=f
                   else Result:=MyPower(x,f,Eps,k,n+1);
end;

Обращение MyPower(x,1,0.0001,k,1)