Сформировать массив, сформировать массив где каждый элемент соответствует среднему геомметр Опции

[Борис]

Дан массив С[M,N], m и n<=10
Сформировать одномерный массив A[n] где каждый элемент соответствует среднему геометрическому элементов соответствующих столбцов!
Напишите полный код плиз, очень срочно

готов заплатить 200 рублей за неё

нужно сделать с процедурами и функцией

[Борис]

ну что? никто не хочет 7 wmz?

[Shura]

Я хочу! Я сделаю.

[Борис]

мне её прямо сейчас нужно сделать, очень срочно

[sinys]

Отклонено

Сообщение отредактировано: volvo - 26.01.2006 18:16

[Борис]

млин я не дома, а тут аськи нет, давайте ребят, срочняк, кто-нить!!

[sinys]

соответствует среднему геометрическому элементов соответствующих столбцов!

что значит среднему геометрическому?

то есть сложить все элементы в столбце и разделить на m?

[Борис]

да, только почему на m, столбцы же n, или нет?

[sinys]

да, только почему на m, столбцы же n, или нет?

m это кол-во элементов в стобце

скажи почту

[Борис]

<censored>

[sinys]

<censored>

проверь почту, послал экзешник, исходники после оплаты, номер кошелька в письме

[Борис]

мля, как я те щас оплачу??
я в универе сижу
я те отвчаю что все заплачу, 8-9065042422
моя мобила! если что, и аська 665834


вставь исходники плиз, я на экзамене щас, ты в москве?

[sinys]

мля, как я те щас оплачу??
я в универе сижу
я те отвчаю что все заплачу, 8-9065042422
моя мобила! если что, и аська 665834
вставь исходники плиз, я на экзамене щас, ты в москве?

var
a : array[1..10,1..10] of integer;
b : array[1..10] of real;
m,n,i,j : integer;
begin
writeln('VNIMANIE PROGRAMMA SDELANA NA ZAKAZ I NE OPLACHENA');
writeln('vvedite razmernost matrici M i N');
readln(m);
readln(n);
writeln('zapolnite massiv');
for i:=1 to m do
begin
for j:=1 to n do
begin
read(a[i,j]);
end;
end;
writeln('matrix');
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to n do b[i]:=0;
for i:=1 to n do
Begin
for j:=1 to m do b[i]:=b[i]+a[j,i];
b[i]:=B[i] / m;
end;
writeln('elementi poluchennogo massiva');
for i:=1 to n do writeln(b[i]:5:2);
writeln('VNIMANIE PROGRAMMA SDELANA NA ZAKAZ I NE OPLACHENA');
readln;
readln;
end.



Обязательно заплати, а то ведь найду

[Борис]

блин, я же написал, что нужно сделать с процедурами и функцией!!!!!

[volvo]

sinys, ты бы прежде чем задачи на заказ делать, арифметику бы выучил... Среднее геометрическое - это корень N-ой степени из произведения N элементов, а то что ты сделал - среднее арифметическое. Почувствуй разницу... Задача решена неверно.

Борис, можешь не оплачивать...

[Борис]

народ, с процедурами и функцией!!! АААААААА, так я и сам сделал. над обязаловка процедуры с функциями

[volvo]

На будущее... Личную переписку устраивайте по PM...

[Борис]

volvo, по мойму наоборот.
СДЕЛАЙТЕ С ПРОЦЕДУРАМИ И ФУНКЦИЕЙ ПОЖАЛУЙСТА

Ты что, со мной спорить собрался? Открой любой справочник...

верю! +)
сделает кто-нибудь?

Сообщение отредактировано: volvo - 11.01.2006 13:44

[sinys]

блин, я же написал, что нужно сделать с процедурами и функцией!!!!!

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
writeln('zapolnite massiv');
for i:=1 to m do
begin
for j:=1 to n do
begin
read(a[i,j]);
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:=B[i] / m;
end;


begin
writeln('VNIMANIE PROGRAMMA SDELANA NA ZAKAZ I NE OPLACHENA');
writeln('vvedite razmernost matrici M i N');
readln(m);
readln(n);
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);
writeln('VNIMANIE PROGRAMMA SDELANA NA ZAKAZ I NE OPLACHENA');
readln;
readln;
end.

[Борис]

Volvo
сделай ты пожалуйста!

sinys, спасибо