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

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

Как извлечь кубичезкий корень?? [D7, XP]


Страницы:   1 2

savyhinst ©   (2008-07-31 11:27:00) 

Здраствуйте.
Подскажите пожалуйста, как извлечь кубичезкий корень из числа?? Желательно, стандартной функцией, если такая есть.
Спасибо за внимание.


Vlad Oshin   (2008-08-01 10:12:00) [1]


> kubicheskij_koren := exp((1/3) * ln(x));

kubicheZkij_koren


Dennis I. Komarov   (2008-08-01 10:11:00) [2]

> [27] Ega23 ©   (31.07.08 17:43)

Дык начинающим "разориться" :)


Нат   (2008-08-01 01:02:00) [3]


> раздел "Песочница"

Вроде есть уже "орешница"


Ega23   (2008-07-31 17:43:00) [4]


> был первый ответ по существу


Вот действительно надо завести раздел "Песочница". И написать "В эту конференцию попадают идиотские вопросы от идиотов, неспособных чуть-чуть подумать и чуть-чуть почитать хелп".
И складывать туда такие перлы, как этот.


grisme   (2008-07-31 17:41:00) [5]

да вывод-то у этого метода простющий, как апельсин.
вопрос в том, знает ли автор: что есть экспонента. а логарифмы и в школе проходят.


Vlad Oshin   (2008-07-31 17:40:00) [6]

Result := FloatToStr(Exp((1/3)*Ln(ABS(X))))
 if X<0 then  Result :=result+'i';


Правильный$Вася   (2008-07-31 17:34:00) [7]


>  первый ответ по существу

это слишком детальный ответ, который на пользу не идет
человек должен думать, а не потреблять готовое


Milk   (2008-07-31 17:29:00) [8]

I>
> Ega23 ©   (31.07.08 17:22) [22]
Это была шутка. Я к тому, что
> grisme   (31.07.08 17:14) [20]
<был первый ответ по существу. Хотя автора это, пожалуй, уже не интересует.


Ega23   (2008-07-31 17:22:00) [9]


> Акак быть если извлекать корень кубический из -8 (минус
> восемь)


var
 sign : Boolean;
begin
 sign := X<0;
 Result := Exp((1/3)*Ln(ABS(X)));
 if sign then Result := 0 - Result;
end;


Milk   (2008-07-31 17:19:00) [10]


> grisme   (31.07.08 17:14) [20]

Акак быть если извлекать корень кубический из -8 (минус восемь)
:(


grisme   (2008-07-31 17:14:00) [11]

kubicheskij_koren := exp((1/3) * ln(x));

:)


a.a.j.   (2008-07-31 14:59:00) [12]


> ...
> uses math

uses мозг


Vlad Oshin   (2008-07-31 14:16:00) [13]

главное - хвост


Johnmen   (2008-07-31 13:40:00) [14]


> измельчал программист

Где программист?


Ega23   (2008-07-31 12:27:00) [15]


> листочки это лучше.


Шишки ещё лучше.


Anatoly Podgoretsky   (2008-07-31 12:21:00) [16]


> прогуливал ботанику наверное

Ботанику, Русский язык и Математику.


Игорь Шевченко   (2008-07-31 12:19:00) [17]

измельчал программист


stas   (2008-07-31 12:15:00) [18]

...
uses math


stas   (2008-07-31 12:15:00) [19]

Showmessage (FloatToStr(Power (8,1/3)));


Медвежонок Пятачок   (2008-07-31 12:11:00) [20]

листочки это лучше.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо