как добыть корень нечетной степени?
я пробовал разложить нечетную степень через четные, но ничего не получается.( например 7 степени)
if x <> 0 then znam := exp(ln(abs(x))/3);
if x < 0 then znam := -znam;
try
znam := exp(ln(x)/3);
except
on EinvalidArgument do znam := exp(ln(-x)/3);
on EZeroDivide do znam := 0;
end;
if x <> 0 then znam := exp(ln(abs(x))/3);пользуются только на Турбо Паскале, а в более новых компиляторах - исключениями или подключают модуль Math?
if x < 0 then znam := -znam;
if x <> 0 then znam := exp(ln(abs(x))/3);
if x < 0 then znam := -znam;