[решено] Pascal | Посчитать корень n степени

[morgan1991]

Здравствуйте!
Подскажите пожалуйста, как посчитать такой корень:

[rus-4-ever]

If (x > 0) then y:=exp(ln(x)/n))
else writeln('Error: x**n -> x <= 0 !!!');

вроде так... надо по математике проверить...

[Virtyaluk]

morgan1991,
Q:> А как посчитать x**3 или корень четвертой степени из x?
A: Hе мешало бы вспомнить школьный курс математики.

x**n=exp(ln(x)*n))
Ограничение: x>0
т.о. надо написать:

If (x > 0) then y:=exp(ln(x)*n))
else writeln('Error: x**n -> x <= 0 !!!');


основной код напишешь сам т.е. ввод чисел и т.д.

[pva]

Дайте ссылок на алгоритмы антиплагиата? (я на больничном, мне заняться нечем)

[Admiral]

morgan1991 Функция возведения в степень (http://www.pascal.hop.ru/cgi-bin/pages.pl?pow)
Применительно к теме использовать так
Var y:Real;
{...}
y := Pow(5, 1/7);