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

[morgan1991]

Здравствуйте!

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

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

[rus-4-ever]

If (x > 0) then y:=exp(ln(x)/n))

else writeln('Error: x**n -> x

[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 

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

[pva]

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

[pva]

morgan1991

Функция возведения в степень

Применительно к теме использовать так

Код:

Код: Выделить всё

Var y:Real;
{...}
y := Pow(5, 1/7);