Question

Вычислить среднее геометрическое положительных элементов маcсива. Delphi

Answer 1

Ответ:

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.

Answer 2

Для вычисления среднего геометрического положительных элементов массива в Delphi, вам нужно выполнить следующие шаги:

1. Создайте массив чисел и заполните его данными.
2. Объявите переменные для хранения произведения положительных элементов и количества положительных элементов.
3. Пройдитесь по массиву, вычисляя произведение положительных элементов и увеличивая счетчик положительных элементов.
4. Если в массиве нет положительных элементов или если произведение становится слишком большим, у вас есть несколько вариантов действий: либо выходить из цикла, либо выводить сообщение об ошибке.
5. После завершения цикла вычислите среднее геометрическое, поднимая произведение к степени 1/n, где n - количество положительных элементов.

Вот пример кода на Delphi:

delphiCopy code
program CalculateGeometricMean;
uses
  SysUtils;

var
  arr: array of Double;
  product: Double;
  count: Integer;
  i: Integer;
  geometricMean: Double;

begin
  // Заполняем массив данными (в данном примере - случайными числами)
  Randomize;
  SetLength(arr, 10); // Меняйте размер массива и заполняйте данными по своему усмотрению
  for i := 0 to High(arr) do
    arr[i] := Random(10); // Здесь случайные числа от 0 до 9

  product := 1.0;
  count := 0;

  for i := 0 to High(arr) do
  begin
    if arr[i] > 0 then
    begin
      product := product * arr[i];
      count := count + 1;
    end;
  end;

  if count = 0 then
    Writeln('Нет положительных элементов в массиве')
  else
  begin
    geometricMean := Power(product, 1 / count);
    Writeln('Среднее геометрическое положительных элементов: ', geometricMean);
  end;

  Readln;
end.

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