Найти среднее геометрическое элементов матрицы

@seg · Регистрация: 28.11.2009

Найти среднее геометрическое элементов матрицы.

@Jazon_deenAlt · 01.12.2009, 17:23

матрица одномерная, двумерная?

Добавлено через 2 минуты
для одномерной

Pascal

s:=0;
for i:=1 to n do begin
s:=s+a[i];
end;
sr:=s/n;

для двумерной

Pascal

s:=0;
for i:=1 to n do begin
for j:=1 to m do begin
s:=s+a[i,j];
end;
end;
sr:=s/n*m;

@seg · 01.12.2009, 17:36 **[ТС]**

это у тя средне арифметическое. А мне надо среднее геометрическое! Для одномерного массива.

@yanyk1n · 01.12.2009, 17:38

Для одномерного массива:

Pascal

1
2
3

p:=1;
for i:=1 to n do p:=p*m[i];
if p>=0 then p:=sqrt(p);

По аналогии напишете и для двумерного

@Jazon_deenAlt · 01.12.2009, 17:39

ну да... щас... так скокомерная матрица?

@yanyk1n · 01.12.2009, 17:42

Нет, я несколько неверно написал. Корректней так:

Pascal

1
2
3

p:=1;
for i:=1 to n do p:=p*m[i];
p:=exp((1/n)*ln(p));

@Jazon_deenAlt · 01.12.2009, 17:47

Pascal

var
i,b:integer;
sg:real;
s:array[1..5]of integer;
begin
b:=1;
for i:=1 to 5 do begin
s[i]:=random(5);
b:=b*s[i];
write(s[i]:2);
end;
sg:=exp(ln(b)/5);
write(sg);
end.

@Puporev · 01.12.2009, 17:56

Вообще-то для вычисления среднего геометрического используются только положительные числа, поэтому типа ranom(5), или if p>=0 не к месту.

@Jazon_deenAlt · 01.12.2009, 17:59

Pascal

var
i,b:integer;
sg:real;
s:array[1..5]of integer;
begin
b:=1;
for i:=1 to 5 do begin
s[i]:=random(5)+1;
b:=b*s[i];
write(s[i]:2);
end;
sg:=exp(ln(b)/5);
write(sg);
end.

Добавлено через 21 секунду
исправил что б небыло "0"

@yanyk1n · 01.12.2009, 18:06

Puporev, а если среднее геометрическое трёх чисел? Это же ведь: p:=корень 3-й степени из (X1*X2*X3).

Добавлено через 1 минуту
http://ru.wikipedia.org/wiki/%... 0%BE%D0%B5

@Puporev · 01.12.2009, 18:09

Средним геометрическим нескольких положительных вещественных чисел называется такое число, которым можно заменить каждое из данных чисел, чтобы их произведение не изменилось.

Это не я придумал. Хотя частный случай для нечетного количества отрицательных чисел мне тоже кажется катит.

@Jazon_deenAlt · 01.12.2009, 18:10

k1ry4, я думаю что уважаемый Puporev, имел ввиду что ваша проверка if p>=0 есть лишней так как if p чисто по определению не может быть неположытельным

@yanyk1n · 01.12.2009, 18:12

Сообщение от Jazon_deenAlt

чисто по определению не может быть неположытельным

Опять привести пример?
x1:=-2;
x2:=-1;
x3:=-4;
p=x1*x2*x3=-8;
куб.корень из p = -2;
Поэтому условие p>=0 необходимо, но только для корней чётных степеней

@seg · 01.12.2009, 18:16 **[ТС]**

формулаСрГеом: G(x1,x2,..xn)=корень n-ой степени из (x1*x2*xn);
если подставит не выходит.

@Puporev · 01.12.2009, 18:16

k1ry4, Да никто с тобой и не спорит, но есть официальное определение и мы должны его придерживаться. А частный случай он и есть частный случай. Например функция exp(ln(x)*a) тоже только для неотрицательных чисел, но видоизменяя ее можно и отрицательными работать.

@yanyk1n · 01.12.2009, 18:22

Окончательный код:

Pascal

uses crt;
var p,n,i:longint;
m:array[1..100]of integer;
s:real;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите элементы массива: ');
 for i:=1 to n do read(m[i]);
 readln;
 p:=1;
 for i:=1 to n do p:=p*m[i];
 if n mod 2=0 then
 begin
 if p>=0 then 
 begin
  s:=exp((1/n)*ln(p))
  writeln('Среднее геометрическое = ',s);
 end else writeln('Произведение чисел меньш нуля!');
 end else
 begin
  if p>=0 then s:=exp((1/n)*ln(p)) else s:=-exp((1/n)*ln(abs(p)));
  writeln('Среднее геометрическое = ',s);
 end;
 readln;
end.

Не по теме:

Ну попробуйте сейчас придраться...

@yanyk1n 4337 / 1469 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	01.12.2009, 18:12	13
	Сообщение от Jazon_deenAlt чисто по определению не может быть неположытельным Опять привести пример? x1:=-2; x2:=-1; x3:=-4; p=x1x2x3=-8; куб.корень из p = -2; Поэтому условие p>=0 необходимо, но только для корней чётных степеней 0

@seg 0 / 0 / 1 Регистрация: 28.11.2009 Сообщений: 33
	01.12.2009, 18:16 [ТС]	14
	формулаСрГеом: G(x1,x2,..xn)=корень n-ой степени из (x1x2xn); если подставит не выходит. 0

@Puporev Модератор 62895 / 46927 / 32342 Регистрация: 18.05.2008 Сообщений: 113,713
	01.12.2009, 18:16	15
	k1ry4, Да никто с тобой и не спорит, но есть официальное определение и мы должны его придерживаться. А частный случай он и есть частный случай. Например функция exp(ln(x)*a) тоже только для неотрицательных чисел, но видоизменяя ее можно и отрицательными работать. 0

@seg 0 / 0 / 1 Регистрация: 28.11.2009 Сообщений: 33
	01.12.2009, 17:36 [ТС]	3
	это у тя средне арифметическое. А мне надо среднее геометрическое! Для одномерного массива. 0

@Jazon_deenAlt 4116 / 991 / 191 Регистрация: 09.04.2009 Сообщений: 4,225
	01.12.2009, 17:39	5
	ну да... щас... так скокомерная матрица? 0

@Puporev Модератор 62895 / 46927 / 32342 Регистрация: 18.05.2008 Сообщений: 113,713
	01.12.2009, 17:56	8
	Вообще-то для вычисления среднего геометрического используются только положительные числа, поэтому типа ranom(5), или if p>=0 не к месту. 1

@yanyk1n 4337 / 1469 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	01.12.2009, 18:06	10
	Puporev, а если среднее геометрическое трёх чисел? Это же ведь: p:=корень 3-й степени из (X1X2X3). Добавлено через 1 минуту http://ru.wikipedia.org/wiki/%... 0%BE%D0%B5 0

@Puporev Модератор 62895 / 46927 / 32342 Регистрация: 18.05.2008 Сообщений: 113,713
	01.12.2009, 18:09	11
	Средним геометрическим нескольких положительных вещественных чисел называется такое число, которым можно заменить каждое из данных чисел, чтобы их произведение не изменилось. Это не я придумал. Хотя частный случай для нечетного количества отрицательных чисел мне тоже кажется катит. 0

@Jazon_deenAlt 4116 / 991 / 191 Регистрация: 09.04.2009 Сообщений: 4,225
	01.12.2009, 18:10	12
	k1ry4, я думаю что уважаемый Puporev, имел ввиду что ваша проверка if p>=0 есть лишней так как if p чисто по определению не может быть неположытельным 0