Как извлечь корень n-степени из комплексного числа

[Natasha-pomosh]

Добрый день. Подскажите, пожалуйста. Дана задача: в программе вводятся степень корня, число и угол. Необходимо извлечь корень из введенного комплексного числа.
Спасибо.

[mihali4]

k:=1;  
           for i:=1 to n do
            k:=Power(k, 1/n); ...

Программа всегда считает корень=1 при любых значениях степени и числа.
Не могу понять в чем ошибка.

А то, что единица в любой степени есть единица - вам не ведомо ?

[Serebro]

Сообщение от mihali4

А то, что единица в любой степени есть единица - вам не ведомо ?

Что за вздор? Вопрос о комплексных числах.
Например,
1^{0.25} имеет 4 (четыре) значения, и не все равны 1.

[Natasha-pomosh]

Как реализовать это в Delphi?

[Ser@Fim]

По формуле из курса комплексных чисел. Формула Муавра - вот тут.
Формула есть, вам нужно только написать цикл для k=0,1,...,n-1

[Natasha-pomosh]

Так вот формулу то нашла, написала ее, а не знаю как правильно цикл реализовать, он видимо не работает. Постоянно корень пишет равным 1. =(

[val_nnm]

Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Begin
    Pow := Exp(B*Ln(A));
End;

var r,f:real;
    Re,Im:real;
    k,n:integer;
Begin
  Readln(r);
  Readln(f);
  Readln(n);
  for k := 0 to n-1 do Begin
    Re := Pow(r,1/n)*cos((f+2*pi*k)/n);
    Im := Pow(r,1/n)*sin((f+2*pi*k)/n);
    if (Im>=0) then
      Writeln('Корень N',k,' =',Re:10:5,'+',abs(Im):10:5,'i')
    else
      Writeln('Корень N',k,' =',Re:10:5,'-',abs(Im):10:5,'i')
      
  End;
End.

[Natasha-pomosh]

ууууух ты...val_nnm спасибо большое!