Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.10.2007, 21:20   #11
Osi@
 
Аватар для Osi@
 
Регистрация: 01.10.2007
Сообщений: 7
По умолчанию

в общем power работает 100%. стил элайв жду объяснений. всем огромное спасибо!

Ultima ratio requem (лат.- последний довод королей)
Osi@ вне форума
Старый 01.10.2007, 21:22   #12
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

ну да через логорифм проще намного чем
Предлагаю так: result = abs(a)/a*exp(n*ln(a));
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума
Старый 01.10.2007, 21:23   #13
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

наздоровье))))
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума
Старый 01.10.2007, 21:26   #14
still_alive
Great Code Monkey
Форумчанин
 
Аватар для still_alive
 
Регистрация: 09.08.2007
Сообщений: 533
По умолчанию

result := abs(a)/a*exp(1/n*ln(abs(a))); корень n-ой степени из а.

Цитата:
берем корень 4 степени и умножаем на -2.
Все-таки бред. Это будет x^(5/4), а не x^(1/5). Попробуй взять корень пятой степени из 32. Должно получиться 2, а у тебя сколько?

Цитата:
чтобы ей воспользоваться нужно добавить в uses модуль Math;
Функция возводит X в степень Y. Значение аргумента Х должно быть больше нуля, иначе возникнет исключение EInvalidOp.
power не берет из отрицательного числа, а у меня берет.

Цитата:
res:=exp(ln(x*(1/5));
Да ну? Это вообще-то х/5. Учим математику, ага?

Последний раз редактировалось still_alive; 01.10.2007 в 21:37.
still_alive вне форума
Старый 01.10.2007, 21:28   #15
Xandr
Пользователь
 
Регистрация: 12.07.2007
Сообщений: 60
По умолчанию

А чем мой способ плох..и без выпендрёжа.
Xandr вне форума
Старый 01.10.2007, 21:30   #16
still_alive
Great Code Monkey
Форумчанин
 
Аватар для still_alive
 
Регистрация: 09.08.2007
Сообщений: 533
По умолчанию

Хотя бы тем, что он не работает
still_alive вне форума
Старый 01.10.2007, 21:37   #17
Xandr
Пользователь
 
Регистрация: 12.07.2007
Сообщений: 60
По умолчанию

Надоел этот бессмысленный спор
Цитата:
Корректная функция возведения в степень
--------------------------------------------------------------------------------


Автор: Mikel
WEB сайт: http://forum.vingrad.ru

function power(Base, Exponent: Extended): Extended;
var
ex: extended;
begin
power := 0;
if (exponent <> 0)
and (frac(trunc((1 / exponent) * 1000000) / 1000000) = 0)
and (base < 0) then
begin
if round(1 / exponent) mod 2 = 0 then
exit;
ex := Exp(Exponent * Ln(-Base));
power := -ex;
end
else
begin
if Exponent = 0.0 then
power := 1.0
else if (Base = 0.0) and (Exponent > 0.0) then
power := 0.0
else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
power := IntPower(Base, Integer(Trunc(Exponent)))
else
power := Exp(Exponent * Ln(Base))
end;
end;

Xandr вне форума
Старый 01.10.2007, 21:38   #18
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
Да ну? Это вообще-то х/5. Учим математику, ага?
Смотрим внимательно и находим отсутствие скобки))
Вот так верно:
Цитата:
res:=exp(ln(x)*(1/5));
Alex21 вне форума
Старый 01.10.2007, 21:41   #19
still_alive
Great Code Monkey
Форумчанин
 
Аватар для still_alive
 
Регистрация: 09.08.2007
Сообщений: 533
По умолчанию

Цитата:
Вот так верно:
Да, так верно, не обратил внимания на отстутствие скобки) . Собственно, все в конце концов к ней и сводится, только в разных вариациях.
still_alive вне форума
Старый 01.10.2007, 21:43   #20
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
power не берет из отрицательного числа, а у меня берет.
Интересно, как вы возьмете Логарифм из "-2"????
Alex21 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Владельцы Visual Studio 2008, помогите пжлст igroman Софт 4 03.08.2008 17:47
Как вывести все целые степени числа? riorio07 Паскаль, Turbo Pascal, PascalABC.NET 1 20.05.2008 11:47
Помогите пожалуйста с оператором Random IDDQD Помощь студентам 6 13.01.2008 20:37
как найти корень из числа $Дмитрий Общие вопросы Delphi 7 26.04.2007 13:40