 Помогите с произвольными степенями.... |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| v-pest |
 23.05.2003 7:52
Сообщение
#1
|
|
Гость  |
Помогите пожалуйста, как можно возвести отрицательное число в произвольную степень, например (-1)^4; (exp(ln(-1)/4) - не работает... выдает ошибку, таким образом можно возвести в степень только положительные числа.
Помогите.... help me... |
 
|
|
  |
Ответов
| v-pest |
23.05.2003 12:27
Сообщение
#2
|
|
Гость |
И точно не правильно, надо было вместо деления умножение ставить... sorry... :o
Я тут и сам посидел и придумал маленькую процедурку, работает нормально и с отрицательными числами, но дробные не берет... Function V_Stepen(znach:real; stepen:byte):real; var i : byte; k: real; begin k:=znach; for i:=1 to stepen-1 do k:=k*znach; V_Stepen:=k; end; Но если есть другие варианты, пожалуйста пишите, я приму в сведение.  |
|
|
|
Сообщений в этой теме
v-pest Помогите с произвольными степенями.... 23.05.2003 7:52
___ALex___ Re: Помогите с произвольными степенями.... 23.05.2003 12:08 ___ALex___ Re: Помогите с произвольными степенями.... 23.05.2003 13:04
Clane Re: Помогите с произвольными степенями.... 23.05.2003 20:16 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.07.2025 20:28 |