Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Вниз

степень числа   Найти похожие ветки 

 
lely   (2002-04-04 08:34) [0]

Функция возвращающая степень числа


 
Song   (2002-04-04 08:45) [1]

Power?


 
SerVS - S   (2002-04-04 10:05) [2]

Тебе нужно х^y?
Если да, то: exp(y*ln(x))


 
lely   (2002-04-04 10:14) [3]

Ну, нужно написать простенькую прогр-ку, в которой с кл-ры вводится число и степень и рез-т выводится в некое окошко. Подозреваю, что есть функция для вычисления этого...
Это и есть exp(y*ln(x)) ?


 
Alx2   (2002-04-04 10:21) [4]

еще есть power


 
Виктор Щербаков   (2002-04-04 10:24) [5]

в модуле Math


 
pasha676   (2002-04-04 10:51) [6]

Если мне не изменяет память - функция ln(x) - не очень универсальное решение (в чистом виде), т.к. область определения э
той функции x>0; То есть придеться дописывать.


 
lely   (2002-04-04 10:59) [7]

Так, понятно.А что с power? Т.е. коротенький пример


 
Alx2   (2002-04-04 11:04) [8]

Курсор ставим на power и жмем F1. В результате появляется окошко с помощью, где видим примерно следующее:

Raises Base to any power.

Unit

Math

Category

Arithmetic routines

function Power(Base, Exponent: Extended): Extended;

Description

Power raises Base to any power. For fractional exponents or exponents greater than MaxInt, Base must be greater than 0.

Из чего можно сделать вывод, что для возведения 2 в степень 1/3 необходимо написать: нечто := Power(2,1/3);


 
REA   (2002-04-04 11:36) [9]

Насчет степеней. Будьте аккуратнее с большими числами (где-то от 10 в 9ой) - иногда на AMD процессоре функция Power работает хуже, чем простое перемножение (возвращает неверное число). Intel впрочем ведет себя еще хуже - простое перемножение тоже возвращает не то. Хотя результат должен быть в пределах нормы. Сам не видел, но рассказывали.


 
Rooman   (2002-04-08 08:42) [10]

а z:=x^y не пробовали?


 
Alx2   (2002-04-08 09:19) [11]

Rooman © (08.04.02 08:42)
^ - указатель?


 
KSergey   (2002-04-08 09:28) [12]

>Rooman
А вы пробовали? ;) Так попробуйте


 
pasha676   (2002-04-08 11:24) [13]

Вообщем из фразы Base must be greater than 0. В описании power можно сделать вывод, что похоже там внутрях все те же логарифмы и экспоненты. Теперь лезим в Math и видим
function Power(Base, Exponent: Extended): Extended;
begin
if Exponent = 0.0 then
Result := 1.0 { n**0 = 1 }
else if (Base = 0.0) and (Exponent > 0.0) then
Result := 0.0 { 0**n = 0, n > 0 }
else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
Result := IntPower(Base, Integer(Trunc(Exponent)))
else
Result := Exp(Exponent * Ln(Base)) => ОПАЧКИ. Старый друг.
end;
То есть по сути абсолютно тоже самое exp(y*ln(x)).




Страницы: 1 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.006 c
1-57666
dimonf
2002-04-04 19:55
2002.04.18
Народ, подскажите почему у меня QuickRep печатает только один раз


1-57750
Абрек
2002-03-31 15:44
2002.04.18
Помогите! Не знаю как исправить оплошность... (+)


4-57914
Romul
2002-02-14 16:36
2002.04.18
Как получить handle s элементов другой программы?


7-57895
VS
2002-01-23 06:51
2002.04.18
Как вызвать свойства конкретного принтера


6-57825
chernoruk
2002-02-04 18:19
2002.04.18
Компонент HTML





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский