Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Код:

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, 11:18   #3
pasterr
 
Регистрация: 22.11.2016
Сообщений: 8
Репутация: 10
По умолчанию

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

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив 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 13:36
EXSEL (VBA) найти элемент наиболее близкий к среднему значению элементов массива Lady_Deluxe Помощь студентам 0 16.06.2009 13:45




11:29.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru