Кто знает, как значение, типа real возвести в степень типа real ?
помогите, пожалуйса очень надо ...........
Люди помогите, кто знает, как возвести в степень |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Люди помогите, кто знает, как возвести в степень |
Андрей |
Сообщение
#1
|
Гость |
Кто знает, как значение, типа real возвести в степень типа real ?
помогите, пожалуйса очень надо ........... |
Паук |
Сообщение
#2
|
Гость |
Вот полная функция возведения в степень любых чисел:
Код (* Функция вычисления степени a^b *) function power(a,b:real):real; function relerror(observed,actual:real):real; begin if actual=0.0 then relerror:=abs(observed) else relerror:=abs(observed/actual-1); end; var i:byte; res:real; begin if (trunc(b)=b) and (b>0) then begin res:=1; for i:=1 to trunc(b) do res:=res*a; power:=res; exit; end; if a=0 then if b=0 then power:=1 else if b<0 then else power:=0 else if a<0 then if abs(b)< 1e-10 then power:=1 else if relerror(b,round(b))< 1e-8 then power:=(1-2*ord(odd(round(b))))*exp(b*ln(abs(a))) else if (relerror(1/b,round(1/b))< 1e-8) and odd(round(1/b)) then power:=-exp(b*ln(abs(a))) else else power:=exp(b*ln(a)) end; |
Текстовая версия | 27.05.2024 23:05 |