Продуры. Среднее геометрическое и алгебраическое одномерного массива.

[Alexgv]

{Используя процедуру определить среднее арифметическое и средне геометрическое в целочисленных массивах mmm[10] и www[12]}

uses crt;
 type
     massiv=array[1..12] of integer;
     procedure vvod(var a:massiv;k:byte);
     var i:byte;
     gs,sa:real;
     begin
     for i:=1 to k do begin
                      a[i]:=random(5)-2;
                      write(a[i]:3);
                      end;
     end;
     procedure sr(a:massiv;k:byte; var srg,srm:real);
     var
     i:byte;
     begin
          srg:=0;
          srm:=0;
          for i:=1 to k do begin
                           srg:=srg+a[i];
                           srm:=(srm+a[i])/k;
                           end;
     end;
var
mmm,www:massiv;
srgMMM,srmMMM,srgWWW,srmWWW:real;
BEGIN
clrscr;randomize;
writeln('Массив MMM:');
vvod(MMM,10);writeln;
sr(MMM,10,srgMMM,srmMMM);
writeln('Ср геометрич:',srgMMM:9:1,'    ','Ср алгебраич:',srgMMM:9:1);
writeln;readln;
writeln('Массив WWW:');
vvod(WWW,12);writeln;
sr(WWW,12,srgWWW,srmWWW);
writeln('Ср геометр:',srgWWW:9:1,'    ','Ср алгебраич:',srgWWW:9:1);
writeln;readln;
end.

как записать формулу среднего геометрического и алгебраического? помоему еще программа не правильно работает

[Stilet]

     procedure sr(a:massiv;k:byte; var srg,srm:real);
     var
     i:byte;
     begin
          srg:=1;
          srm:=0;
          for i:=1 to k do begin
                           srg:=srg*a[i];
                           srm:=(srm+a[i]);
                           end;
srg:=srg/k; {Среднее геометр.}
srm:=srm/k; {Среднее арифм.}
     end;

Смысл ясен?

[Alexgv]

Stilet, да спасибо, уяснил

[andrewpalkin]

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

как записать формулу среднего геометрического и алгебраического? помоему еще программа не правильно работает

А ты не пробовал сам программу запустить и проверить , работает она правильно или нет ? Да и в инете можно найти , что такой средне арифметическое и средне геометрическое !

[Alexgv]

andrewpalkin, да затупил я с алгебраическим что-то, забыл что на кол-во элементов надо за циклом делить. А за геометрическое вообще не знал ничего, первая программа по процедурам, не привык еще) ща вот сижу по функциям теперь втыкаюсь, одну написал, а вторую пока что не могу

[Mad_Cat]

srg:=srg/k; {Среднее геометр.}

-это не среднее геометрическое)
среднее геометрическое=корень к-той степени из srg;

srg:=exp(1/k*ln(srg));

Среднее_геометрическое

[Alexgv]

спасибо, исправлю

[Mad_Cat]

спасибо, исправлю

куда ж ты денешься
только еще учти
что

1)если кол-во будет четным а произведение всех элементов отрицательным то ср.г по этой ф-ле ты не получишь
2) если кол-во будет нечетным а произведение всех элементов отрицательным то ср.г по этой ф-ле ты не получишь(нужно буит - добавлять)

[Alexgv]

причем тут четный или нечетный??

[Mad_Cat]

причем тут четный или нечетный??
да при том что корень квадратный из -3 сколько буит ==>
честно я сам хз но знаю что число буит комплексное ==> паскаль вылетит!
эт по первому ! по второму ln от отрицательного вылетит с ошибкой)
по этому если кол-во нечет и произведение <0 то придется его(произведение) по модулю брать а перед формулой ставить минус!