Напишите функцию, которая позволяет вычислить корень любой натуральной степени. Само...

Question

Напишите функцию, которая позволяет вычислить корень любой натуральной степени. Само число и степень корня – параметры функции.
Пожалуйста, очень надо!

Comments

Если корень необходимо вычислять алгоритмически - укажите, пожалуйста, до скольки знаков после запятой нужно считать корень.

---

Так корень любой натуральной степени вроде не должен ничего иметь после запятой. Можно 1 знак.

---

а такое решение не устраивает? (Например для питона) m**(1/n)

---

Ой черт, забыл сказать, что речь идет о языке программирования паскаль

---

не суть, могу эту формулу и для паскаля написать

---

exp(ln(m)/n) как-то так

---

такое решение устраивает?

---

Мне бы готовый код, если можно)

---

ок

Answer 1

{ ВНИМАНИЕ: Требует "uses Math;" и
FreePascal / Pascal ABC для Power() }

function NthRoot(x: real; y: integer): real;
begin
  NthRoot := Power( x, (1 / y) );
end;
begin
  writeln(NthRoot(9, 2):0:1);
end.

Answer 2

Function root(m,n :integer) :real;
begin
root :=  exp(ln(m)/n)
end;
// корень n степени из числа m

Comments

да, что-то и правда много чего не учел( сильно поспешил