Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.03.2017, 19:55   #1
pasterr
 
Регистрация: 22.11.2016
Сообщений: 8
По умолчанию Найти элемент, равный среднему геометрическому

Найти элемент, равный среднему геометрическому элементов массива.
pasterr вне форума Ответить с цитированием
Старый 12.03.2017, 07:40   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
const
  n = 100;

var
  i: integer;
  p: real;
  a: array [1..n] of real;

begin
  p := 1;
  for i := 1 to n do
  begin
    a[i] := random * n;
    write(a[i]:8:2);
    p := p * a[i];
  end;
  writeln;
  p := power(p, 1 / n);
  writeln('Среднее геометрическое элементов массива: ', p:8:2);
  for i := 1 to n do
    if a[i] = p then
      writeln('Элемент, равный среднему геометрическому элементов массива: ', a[i]:8:2);
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 12.03.2017, 10:18   #3
pasterr
 
Регистрация: 22.11.2016
Сообщений: 8
По умолчанию

Спасибо!
pasterr вне форума Ответить с цитированием
Старый 13.03.2017, 16:58   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Маленькое замечание: при сравнении 2 real переменных результат непредсказуем ввиду ограниченной точности представления переменной real. Может оказаться: 1/3 <> 7/21 .Поэтому обычно применяют : If Abs(a1-a2) < eps... Здесь eps - очень маленькое число. Пример такой лопухнутости - в моем ответе http://programmersforum.ru/showthrea...92#post1667292 (пост #8)
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив 12 элементов,случайные положительные и отрицательные. Найти элемент наиболее близкий к среднему значению(Паскаль 1998y8m1d Помощь студентам 6 16.12.2013 17:06
Сформировать массив: элемент B[K] равен среднему арифметическому элементов массива A с номерами от 1 до K Pomogite_pls Общие вопросы C/C++ 5 28.02.2012 04:11
Если в столбцах, встретился элемент, равный сумме Aluckard Помощь студентам 2 28.11.2010 12:36
EXSEL (VBA) найти элемент наиболее близкий к среднему значению элементов массива Lady_Deluxe Помощь студентам 0 16.06.2009 13:45