Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Возведение в 


KIR   (2002-04-06 13:05) [0]

Народ, как можно возвести число в степень, например 0,6?



KIR   (2002-04-06 13:07) [1]

(Средствами Object Pascal, разумеется)



Anatoly Podgoretsky   (2002-04-06 13:07) [2]

С каких пор это нестандартная степень
Power



KIR   (2002-04-06 13:09) [3]

А что power это делает?



Anatoly Podgoretsky   (2002-04-06 13:12) [4]

А псомотреть?



MBo   (2002-04-06 13:13) [5]

а F1 нажать?



KIR   (2002-04-06 13:13) [6]

Может я неправильно выразился. Требуется возвести число 2 в степень 0,6 (2^0,6)



MBo   (2002-04-06 13:17) [7]

набери в delphi слово Power, встань на него и нажми F1.
Способ проверенный - помогает.



DMA   (2002-04-06 13:20) [8]

Возвести число в любую степень можно так:
otvet:=exp(step*ln(chislo));
Вот так!



DMA   (2002-04-06 13:21) [9]

Возвести число в любую степень можно так:
otvet:=exp(step*ln(chislo));
Вот так!



Anatoly Podgoretsky   (2002-04-06 13:22) [10]

DMA (06.04.02 13:20)
Конечно можно, но есть и функция



vrRaven   (2002-04-06 19:27) [11]

uses Math;
...
x:=power(a,b); // a в степени b


или

x:=Exp(Ln(a)*b); // то же самое, только uses math писать не надо



olookin   (2002-04-06 19:30) [12]

Что касается меня я всегда Power пользовался...



MBo   (2002-04-06 19:36) [13]

Much Ado About Nothing



Fantasist   (2002-04-06 20:03) [14]


> Возвести число в любую степень можно так:
> otvet:=exp(step*ln(chislo));

Только если число >0. Так что надо делать типа так:
if chislo=0 then
otvet=0
else
if chislo<0 then
begin
if (odd(step))
otvet:=-exp(step*ln(-chislo))
else
otvet:=exp(step*ln(-chislo));
end;
else
otvet:=exp(step*ln(chislo));




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.067 c
1-57794           DMA                   2002-04-06 13:30  2002.04.18  
Координаты курсора мыши


7-57903           prosof                2001-11-06 12:55  2002.04.18  
Видео в полный экран


4-57926           Ura!                  2001-12-21 17:48  2002.04.18  
ReadEventLog


1-57694           Rammst                2002-04-08 06:50  2002.04.18  
Kylix


3-57637           Oleon                 2002-03-28 12:05  2002.04.18  
Добрый день. Вопрос по базе InterBase.