Помогите с задачей, вроде задача легкая, а голову как заступорило.
Составить программу pRoot(x,p,eps), которая вычисляет значение корня p-той степени из x с заданной абсолютной погрешностью eps, используя рекуррентную формулу:
y0 = x
yn+1 =(1/p)*(yn*(p-1)-x/yn(p-1))
В функции должна быть предусмотрена возможность извлечения корня нечетной степени из отрицательного числа.
function RootP(p: integer; x,e: double): double;
var
y,y1: double;
Neg: boolean;
procedure Yn;
begin
y1:=(1/p)*(y*(p-1)+x/Exp(Ln(y)*(p-1)));
if Abs(y1-y)>e then begin
y:=y1;
Yn
end
end;
begin
Neg:= (x<0) and Odd(p);
if Neg then x:=-x;
y:=x;
Yn;
if Neg then y1:=-y1;
RootP:=y1
end;
begin
WriteLn(RootP(3,-64,0.1))
end.