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