IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Вычисление среднего геометрического
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Помогите пожалуйста!
Мне нужно вычислить ср. геометрическое на Паскале!
Но я не знаю каким образом можно возвести в степень 1/n или вычислить корень n-ной степени! ???

Если кто знает, помогите пожалуйста!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Большое спасибо Пауку за эту функцию !!!

Если кому понадобится эта прога - пришлю (вычисление ср. геометрического)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Присылай конечно эту прогу, другим тоже может понадобиться smile.gif
А прелесть  этой функции как раз в том, что она работает с любыми числами, не обязательно целыми
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Пришли мне эту программу на clane@inbox.ru, расположу на сайте.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 4.11.2024 9:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name