6 lines
96 B
Text
6 lines
96 B
Text
|
real procedure nthroot(x, n);
|
||
|
|
value x, n; real x, n;
|
||
|
|
begin
|
||
|
|
nthroot := exp(ln(x) / n);
|
||
|
|
end;
|