| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как осуществить возведение в степень 1/3 ? [D7]

Georgij ©   (2005-05-10 23:53:00) 

Добрый вечер !

Подскажите пожалуста как с помощю Power возвести функцию в степень 1/3 (Одна треть). Заранье благодарен !

---

Antonn   (2005-05-11 05:30:00) [1]

Georgij   (10.05.05 23:53)
:=power(8,1/3);

---

dRake   (2005-05-11 01:40:00) [2]



 FUNCTION CubeSqrt( X : single ) : single;
 VAR
   Dummy : single;
 BEGIN;

    Dummy := sqrt(x);
    while abs(Dummy - X/sqr(Dummy)) > 0.001 do
      begin
        Dummy := (2*Dummy + X/sqr(Dummy))/3;
      end;

    Result := Dummy;

 END;



---

П7   (2005-05-11 01:18:00) [3]

в модуле math есть функция Power.

---

cerber   (2005-05-11 00:11:00) [4]

Никак.
Можно так:
a^b= exp((ln(a)*b) при условии а>0, b>0

---

Наверх