Среднее арифметическое Делфи

[Коккс]

Добрый день! Подскажите пожалуйста, как посчитать среднее арифметическое в делфи? Имеется 2 одномерных массива.
В первом хранятся полученные результаты в числах, например (45, 25, 36, 55, 38, 60 ) res: array [0..134] of integer; (всего 135 возможных результатов)

Во втором размешанные частоты, например, (1, 8 , 3, 8, 3,1).
chs1: array [0..134] of integer; (всего 135 возможных частот)

То есть каждой частоте соответствует свой результат. Однако каждая частота повторяется N раз, а результат должен быть один. Поэтому необходимо посчитать среднее и его выводить в качестве результата к конкретной частоте. Подскажите, как создать новый массив для средних значений?

Не понимаю, как определять одинаковые частоты в ячейках массива chs1 и считать их среднее

[Serge_Bliznykov]

а пример можно?
что дано и что нужно получить в новом массиве?

p.s. не надо писать все 135 значений (достаточно 10-15 значений, чтобы увидеть, что Вы хотите получить).
p.p.s. сортировать массивы можно?

[Коккс]

Я же написала выше. Даны массивы с результатами и с частотами. Мне нужно создать один общий массив, где частота будет повторяться только 1 раз и для нее будет среднее арифметическое из результатов для этой частоты(потом будет строиться диаграмма с этим значением для конкретной частоты).

Это тестирование, где пользователь выбирает частоты, на которых будет тестироваться и выбирает количество повторов этих частот. По окончанию тестирования формируется массив результатов. Но выводиться должно одно число для конкретной частоты.

Частоты располагаются в массиве каждый раз по-разному, так как они рандомно перемешиваются

[type_Oleg]

Я не понял , это у вас ТвиМС, или что-то с электроникой ?
Что такое частоты ?
Если ТвиМС, то там есть выборка состоящая из вариант ( конкретные значения), и частоты этих значений (сколько раз в выборке варианта).
Или это электроника - частота, фазы, амплитуда ? ..

[Коккс]

Нет, это не их той оперы. Не обращайте внимания на слово частота. Это для глаз прога.

[Serge_Bliznykov]

Сообщение от Коккс

Я же написала выше. Даны массивы с результатами и с частотами. Мне нужно создать один общий массив, где частота будет повторяться только 1 раз и для нее будет среднее арифметическое из результатов для этой частоты(потом будет строиться диаграмма с этим значением для конкретной частоты).

алгоритм решения устроит?
или нужно полностью готовый код решения?

[Коккс]

Хотелось бы алгоритм работы с пояснениями по коду.

[type_Oleg]

Понятно. То есть, если было:
res (45, 25, 36, 55, 38, 60 )
chs1 (1, 8 , 3, 8, 3,1), то ответ должен быть:
(1, 3, 8 ) --> (52.5, 37, 40)

[Коккс]

Именно!

[Serge_Bliznykov]

Сообщение от Коккс

Хотелось бы алгоритм работы с пояснениями по коду.

1. сортируйте массив chs1 (и одновременно с ним сортируйте значения)
примерно так:

  n := 135;
  {сортировка массива chs1 }
  for i:=0 to n-2 do
    for j:=i+1 to n-1 do
      if chs1[i]>chs1[j] then
        begin tmp:=chs1[i]; chs1[i]:=chs1[j]; chs1[j]:=tmp; 
                tmp:=res[i]; res[i]:=res[j]; res[j]:=tmp; 
        end;

2. считаете (за один проход) количество уникальных значений в массиве chs1 (например, nnew)

nnew := 1;
ch_cur := chs1[0];
for i:=1 to n-1 do 
   if ch_cur <> chs1[i] then begin
     inc(nnew);
     ch_cur := chs1[i];
   end;

3. создаёте результирующий массив из записей (или два массива - в зависимости от того, что Вам нужно на выходе). Размер массива nnew (получен на этапе 2 )

SetLength(resNew, nnew);
SetLength(chsNew, nnew);

4. устраиваете цикл по массиву chs1 с суммированием значений по одинаковой частоте. как только частота сменилась - сумму делите на количество значений и записывайте в новый массив/ы


пояснения нужны?