Реализации алгоритмов/Быстрое возведение в степень: различия между версиями

м (Откат правок 5.137.109.239 (обс.) к версии Ivan Shmakov)
end;
end;
</source>
 
 
<source lang=pascal>
//возведение в любую степень, даже под корень (корень степени N = степень 1/N)
function power(Val,Pwr:Real):Real; {возведение числа Val в степень Pwr}
begin
Power:=Exp(Pwr*Ln(Val));
end;
</source>
 
Анонимный участник