|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.04.2008, 18:22 | #1 |
Пользователь
Регистрация: 02.04.2008
Сообщений: 32
|
Возведение числа в степень
Нужно возвести отрицательное число в определенную степень(3, 4, 5,....), как это сделать, подскажите пожалуйста кто знает, очень надо, может какая нибудь встроенная функция есть.. Я толко знаю такую формулу exp(x*ln(n)), но она как вы знаете может работать только с положительными числами(n>0).
|
03.04.2008, 18:26 | #2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Ну, так и возводите положительное число, если степень нечетная добавляйте минус.
|
03.04.2008, 18:28 | #3 |
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,189
|
function sqrS(a: integer; stepen: integer) : integer;
var i: integer; begin for I:=2 to stepen do a:=a*a; sqrS := a; end; |
03.04.2008, 19:53 | #5 |
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,189
|
По моему exp(x*ln(n)) - синтаксис паса
|
03.04.2008, 21:02 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) } Var T:Real; Begin T := Abs(A); If A < 0 Then Pow := (-1)*Exp(B*Ln(T)) Else Pow := Exp(B*Ln(T)); End; |
03.04.2008, 21:07 | #7 |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
А если степень четная... Тогда надо добавить условие проверки четности (или нечетности) степени после проверки на отрицательность.
Последний раз редактировалось Xardas; 03.04.2008 в 21:10. |
03.04.2008, 21:48 | #8 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,085
|
в делфях есть функция power. ну если нужно на паскакале, то оттуда скомуниздить можно
|
04.04.2008, 22:24 | #9 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Hollander, a:=a*a в цикле будет возвращать 2-, 4-, 8- , 16 -ю степень, а не 2-, 3-, 4-, 5- ю соответственно.
|
05.04.2008, 09:50 | #10 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
то так: Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возведение в степень на Pascal | LORD-BY | Помощь студентам | 32 | 28.02.2018 07:48 |
Возведение в степень | Stanislav | Общие вопросы Delphi | 10 | 05.12.2007 23:34 |
Возведение в степень... | Sota | Общие вопросы C/C++ | 7 | 18.07.2007 17:05 |
Задачи по массивам + возведение действительного числа в действительную степень | springgirl | Помощь студентам | 2 | 24.04.2007 03:26 |
Delphi Возведение в степень | Luska | Помощь студентам | 6 | 23.04.2007 17:51 |