В каждой строке двумерного массива подсчитать среднее геометрическое значение

[gor-007]

Здравствуйте! Помогите пожалуйста с задачей: В каждой строке двумерного массива подсчитать среднее геометрическое значение. максимальное число элементов массива -30.

From Stilet: Это что так сложно назвать тему адекватно?

[Ol'ga_new]

Как мне помнится ср.геометрическое - это корень n-ой степени из произведения чисел. Значит для вычисления корня n-ой степени нужно написать отдельную функцию.

[gor-007]

Сообщение от Ol'ga_new

Как мне помнится ср.геометрическое - это корень n-ой степени из произведения чисел. Значит для вычисления корня n-ой степени нужно написать отдельную функцию.

спасибо. но это я знаю, сама программа не получается.

[Ol'ga_new]

Выложи, что получилось посмотрим!

[Roland_Lviv_ua]

Щас сделаю

[gor-007]

Сообщение от Ol'ga_new

Выложи, что получилось посмотрим!

вот, только здесь просто сумма по строкам.

{ ВВОД ДВУМЕРНОГО МАСИВА }
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO M DO
BEGIN
WRITE('ВВЕСТИ A[',I,',',J,']:');
READLN( A[I,J])
END
END;

{КОНТРОЛЬНЫЙ ВЫВОД ДВУМЕРНОГО МАСИВА }
TEXTCOLOR(10);
WRITELN;
WRITELN('ВВЕДЕН МАССИВ:');
WRITELN;
FOR I:=1 TO N DO
BEGIN
FOR j:=1 TO M DO
WRITE(A[I,J]:6:2,' ');
WRITELN
END;
Y:=WHEREY-N-2;

{ РЕШЕНИЕ ЗАДАЧИ }
FOR I:=1 TO N DO
BEGIN
B[I]:=0;
FOR J:=1 TO M DO
B[I]:=B[I]+A[I,J]
END;

{ВЫВОД СУММЫ ЭЛЕМЕНТОВ ПО СТРОКАМ}
TEXTCOLOR(9);
GOTOXY(M*7+4,Y);
WRITELN('СУМMA');
WRITELN;
FOR I:=1 TO N DO
BEGIN
GOTOXY(7*M+3,WHEREY);
WRITELN(B[I]:7:2)
END;
WRITELN;
TEXTCOLOR(7);
WRITELN('НАЖМИ ЛЮБУЮ КЛАВИШУ');
READKEY
END.

функцию нужно вставлять в разделе " решение задачи" ? начало проги я пропустил, там все верно.

[Roland_Lviv_ua]

ахах=))
там не суму треба а добуток=)))
формулу в вікіпедії подивись=))

[gor-007]

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

ахах=))
там не суму треба а добуток=)))
формулу в вікіпедії подивись=))

ага, знаю.. был уже там) так как ее сюда то вставить?

[Roland_Lviv_ua]

Держи и радуйся=)))



program Project2;

{$APPTYPE CONSOLE}
uses
SysUtils;
type Tmas=array[1..30,1..30] of real;
Tmas1=array[1..30] of real;
var a:Tmas; b:Tmas1;
n,m,i,j:integer; {ðîçì³ðè ìàñèâà} {X^Y = exp(ln(X) * Y) ôîðìóëà äëÿ ñòåïåíÿ}
begin
writeln ('vvedit rozmiru');
readln (m,n);
writeln ('vvedit matrucu');
for j:=1 to m do
for i:=1 to n do
read(a[i,j]);

b[1]:=1;
for j:=1 to m do
begin
b[j]:=1;
for i:=1 to n do
begin
b[j]:=(b[j])*exp(ln(a[i,j])*(1/m));
end;
end;
for j:=1 to m do
writeln(b[j]);
readln;
readln;
end.

[gor-007]

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

Держи и радуйся=)))



program Project2;

{$APPTYPE CONSOLE}
uses
SysUtils;
type Tmas=array[1..30,1..30] of real;
Tmas1=array[1..30] of real;
var a:Tmas; b:Tmas1;
n,m,i,j:integer; {ðîçì³ðè ìàñèâà} {X^Y = exp(ln(X) * Y) ôîðìóëà äëÿ ñòåïåíÿ}
begin
writeln ('vvedit rozmiru');
readln (m,n);
writeln ('vvedit matrucu');
for j:=1 to m do
for i:=1 to n do
read(a[i,j]);

b[1]:=1;
for j:=1 to m do
begin
b[j]:=1;
for i:=1 to n do
begin
b[j]:=(b[j])*exp(ln(a[i,j])*(1/m));
end;
end;
for j:=1 to m do
writeln(b[j]);
readln;
readln;
end.

спасибо огромное)))))