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

> 

Начальные контакты ТОЛЬКО через личку!!

2 страниц V < 1 2  
 Closed Topic Открыть новую тему 
> Сформировать массив, сформировать массив где каждый элемент соответствует среднему геомметр
сообщение
Сообщение #21





Группа: Пользователи
Сообщений: 9
Пол: Мужской

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

блин, ну ведь спрашивал ведь
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Цитата
for j:=1 to m do b[i]:=b[i]+a[j,i];
raschet:=B[i] / m;

Цитата
Среднее геометрическое - это корень N-ой степени из произведения N элементов, а то что ты сделал - среднее арифметическое.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

sinysты в москве?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Код
for j:=1 to m do
b[i]:=b[i]*a[j,i];
raschet:=Exp((1/m)*Ln(B[i]));


Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

а Exp(ln(B[i]/m))
не одно и тоже?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26





Группа: Пользователи
Сообщений: 9
Пол: Мужской

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

народ, а нет клиента для этого форума? а то жрет много
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Корень m-той степени из числа - это число в степени 1/m
http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=38227

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28





Группа: Пользователи
Сообщений: 1
Пол: Мужской

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

ну что задача все еще нужна? или volvo уже решил?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

Цитата
program exzamen;
uses crt;
var
A : array[1..10,1..10] of integer;
B : array[1..10] of real;
m,n,i,j : integer;

procedure vvod(m: integer;n : integer);
begin
randomize;

for i:=1 to m do
begin
for j:=1 to n do
begin
A[i,j]:=random(100);

end;
end;
end;

procedure vivod(m: integer;n : integer);
begin
writeln('matrix');
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(' ',A[i,j],' ');
end;
writeln;
end;
end;

function raschet(m: integer;i:integer): real;
var j : integer;
begin
for j:=1 to m do b[i]:=b[i]+a[j,i];
raschet:=exp(ln(B[i]/m));
end;


begin


clrscr;

vvod(m,n);
vivod(m,n);
for i:=1 to n do b[i]:=0;
writeln('elementi poluchennogo massiva');
for i:=1 to n do
writeln(raschet(m,i):5:2);

readln;
readkey;
end.

где ошибка, почему не рандомит, тобишь не выводит

Сообщение отредактировано: Борис -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Код
for i:=1 to m do
begin
for j:=1 to n do

тут
Чему равны n,m?
0

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

Цитата(Ozzя @ 11.01.2006 14:47) *

Код
for i:=1 to m do
begin
for j:=1 to n do

тут
Чему равны n,m?
0

добавил ввод M и N
но все равно ничего не выводит

ну есть мысли?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Код
begin


clrscr;
n:=5;
m:=5;
vvod(m,n);
vivod(m,n);
readln;
for i:=1 to n do b[i]:=0;
writeln('elementi poluchennogo massiva');
for i:=1 to n do
writeln(raschet(m,i):5:2);

readln;

end.

Вот такой вариант отлично работает

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

Цитата
program exzamen;
uses crt;
var
A : array[1..10,1..10] of integer;
B : array[1..10] of real;
m,n,i,j : integer;

procedure vvod(m: integer;n : integer);
begin
randomize;
writeln('enter M');
readln(m);
writeln('enter N');
readln(n);
for i:=1 to m do
begin
for j:=1 to n do
begin
A[i,j]:=integer(random(100)-50);

end;
end;
end;

procedure vivod(m: integer;n : integer);
begin
writeln('matrix');
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(' ',A[i,j],' ');
end;
writeln;
end;
end;

function raschet(m: integer;i:integer): real;
var j : integer;
begin
for j:=1 to m do b[i]:=b[i]+a[j,i];
raschet:=exp((1/m)*ln(B[i]));
end;


begin


clrscr;

vvod(m,n);
vivod(m,n);
readln;
for i:=1 to n do b[i]:=0;
writeln('elementi poluchennogo massiva');
for i:=1 to n do
writeln(raschet(m,i):5:2);

readln;

end.

readln;
readkey;
end.


а у мня что не так, не выводит ничего

Сообщение отредактировано: Борис -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Сообщения об ошибках есть?
В чем пишешь? БП7?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #35


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

Цитата(Ozzя @ 11.01.2006 15:03) *

Сообщения об ошибках есть?
В чем пишешь? БП7?

просто после ввода m и n ничего не выводит
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #36


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

ХЗ тогда mega_chok.gif
У меня все прекрасно отработало.
А как не выводит? Экран мигнул и погас, или пустой экран и ждет нажатия на клавишу?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #37


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской

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

ну вставь плиз, всю прогу целиком
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #38


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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

Так она твоя и есть две строки добавил
Код
program exzamen;
uses crt;
var
A : array[1..10,1..10] of integer;
B : array[1..10] of real;
m,n,i,j : integer;

procedure vvod(m: integer;n : integer);
begin
randomize;

for i:=1 to m do
begin
for j:=1 to n do
begin
A[i,j]:=random(100);

end;
end;
end;

procedure vivod(m: integer;n : integer);
begin
writeln('matrix');
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(' ',A[i,j],' ');
end;
writeln;
end;
end;

function raschet(m: integer;i:integer): real;
var j : integer;
begin
for j:=1 to m do b[i]:=b[i]+a[j,i];
raschet:=exp(ln(B[i]/m));
end;


begin


clrscr;
n:=5;
m:=5;
vvod(m,n);
vivod(m,n);

for i:=1 to n do b[i]:=0;
writeln('elementi poluchennogo massiva');
for i:=1 to n do
writeln(raschet(m,i):5:2);

readln;

end.




То что то выводит
Цитата
matrix
22 34 8 78 42
50 4 35 9 15
34 14 99 3 14
61 58 58 96 26
47 41 89 50 72
elementi poluchennogo massiva
42.80
30.20
57.80
47.20
33.80



for j:=1 to m do b[i]:=b[i]+a[j,i];
поменяй на
for j:=1 to m do b[i]:=b[i]*a[j,i];

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #39


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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

Нарушение правил форума :

1.12, 9, 5

+ флейм

закрыто.

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Задачи на заказ · Следующая тема »
 

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

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



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