Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
1

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

01.12.2009, 17:15. Просмотров 2922. Ответов 15
Метки нет (Все метки)


Найти среднее геометрическое элементов матрицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2009, 17:15
Ответы с готовыми решениями:

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

Вычислить среднее геометрическое положительных элементов каждого столбца матрицы
Вычислить среднее геометрическое положительных элементов каждого столбца матрицы

Вычислить среднее геометрическое модулей всех отрицательных элементов матрицы (комментарии)
Добрый вечер! Помогите пожалуйста разобраться в программе, кто хорошо знает паскаль, можете...

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

15
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
01.12.2009, 17:23 2
матрица одномерная, двумерная?

Добавлено через 2 минуты
для одномерной
Pascal
1
2
3
4
5
s:=0;
for i:=1 to n do begin
s:=s+a[i];
end;
sr:=s/n;
для двумерной
Pascal
1
2
3
4
5
6
7
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;
1
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
01.12.2009, 17:36  [ТС] 3
это у тя средне арифметическое. А мне надо среднее геометрическое! Для одномерного массива.
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
01.12.2009, 17:38 4
Для одномерного массива:
Pascal
1
2
3
p:=1;
for i:=1 to n do p:=p*m[i];
if p>=0 then p:=sqrt(p);
По аналогии напишете и для двумерного
0
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
01.12.2009, 17:39 5
ну да... щас... так скокомерная матрица?
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
01.12.2009, 17:42 6
Нет, я несколько неверно написал. Корректней так:
Pascal
1
2
3
p:=1;
for i:=1 to n do p:=p*m[i];
p:=exp((1/n)*ln(p));
0
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
01.12.2009, 17:47 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.
0
Модератор
62895 / 46927 / 32342
Регистрация: 18.05.2008
Сообщений: 113,713
01.12.2009, 17:56 8
Вообще-то для вычисления среднего геометрического используются только положительные числа, поэтому типа ranom(5), или if p>=0 не к месту.
1
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
01.12.2009, 17:59 9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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"
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
01.12.2009, 18:06 10
Puporev, а если среднее геометрическое трёх чисел? Это же ведь: p:=корень 3-й степени из (X1*X2*X3).

Добавлено через 1 минуту
http://ru.wikipedia.org/wiki/%... 0%BE%D0%B5
0
Модератор
62895 / 46927 / 32342
Регистрация: 18.05.2008
Сообщений: 113,713
01.12.2009, 18:09 11
Средним геометрическим нескольких положительных вещественных чисел называется такое число, которым можно заменить каждое из данных чисел, чтобы их произведение не изменилось.
Это не я придумал. Хотя частный случай для нечетного количества отрицательных чисел мне тоже кажется катит.
0
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
01.12.2009, 18:10 12
k1ry4, я думаю что уважаемый Puporev, имел ввиду что ваша проверка if p>=0 есть лишней так как if p чисто по определению не может быть неположытельным
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
01.12.2009, 18:12 13
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
чисто по определению не может быть неположытельным
Опять привести пример?
x1:=-2;
x2:=-1;
x3:=-4;
p=x1*x2*x3=-8;
куб.корень из p = -2;
Поэтому условие p>=0 необходимо, но только для корней чётных степеней
0
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
01.12.2009, 18:16  [ТС] 14
формулаСрГеом: G(x1,x2,..xn)=корень n-ой степени из (x1*x2*xn);
если подставит не выходит.
0
Модератор
62895 / 46927 / 32342
Регистрация: 18.05.2008
Сообщений: 113,713
01.12.2009, 18:16 15
k1ry4, Да никто с тобой и не спорит, но есть официальное определение и мы должны его придерживаться. А частный случай он и есть частный случай. Например функция exp(ln(x)*a) тоже только для неотрицательных чисел, но видоизменяя ее можно и отрицательными работать.
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
01.12.2009, 18:22 16
Окончательный код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.

Не по теме:

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2009, 18:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти среднее геометрическое нечетных элементов каждого из массивов
найти среднее геометрическое нечетных элементов каждого из массивов А,В,С. Определить их суммму

Найти среднее геометрическое элементов с четными номерами массива: С=(-1,2,5,4,3,1,0,-2,1,-1,5,4,-4)
Помогите,нужно написать на паскале Найти среднее геометрическое элементов с четными номерами...

Найти среднее геометрическое элементов, нацело делящихся на 3 в закрашенной области
Задана матрица целых чисел . Найти среднее геометрическое элементов, нацело делящихся на 3 в...

Найти среднее арифметическое этих чисел и среднее геометрическое их модулей
Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.