Вычисление среднего геометрического |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Вычисление среднего геометрического |
BDS |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 17 Репутация: 0 |
Помогите пожалуйста!
Мне нужно вычислить ср. геометрическое на Паскале! Но я не знаю каким образом можно возвести в степень 1/n или вычислить корень n-ной степени! ??? Если кто знает, помогите пожалуйста! |
Паук |
Сообщение
#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; Сообщение отредактировано: volvo - |
BDS |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 17 Репутация: 0 |
Большое спасибо Пауку за эту функцию !!!
Если кому понадобится эта прога - пришлю (вычисление ср. геометрического) |
Паук |
Сообщение
#4
|
Гость |
Присылай конечно эту прогу, другим тоже может понадобиться
А прелесть этой функции как раз в том, что она работает с любыми числами, не обязательно целыми |
Clane |
Сообщение
#5
|
Гость |
Пришли мне эту программу на clane@inbox.ru, расположу на сайте.
|
Текстовая версия | 4.11.2024 9:58 |