Реализации алгоритмов/Быстрое возведение в степень: различия между версиями
Содержимое удалено Содержимое добавлено
Oleg4280 (обсуждение | вклад) м Откат правок 5.137.109.239 (обс.) к версии Ivan Shmakov |
|||
Строка 115:
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>
| |||