VPF::Delphi - Форум программистов

KtyfG

Дата 31.5.2010, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Помогите, пожалуйста! Определить элемент, имеющий минимальное отклонение от среднего значения элементов массива на языке Delphi. Среднюю арифметическу я уже нашла

Код


procedure TForm2.Button1Click(Sender: TObject);
var
a:array[1..5] of integer; // массив целых
i: integer; //индекс элемента массива
sr:real; //среднее из массива
summ: real; //сумма массива
begin
//ввод массива
for i := 1 to 5 do
if Length(StringGrid1.Cells[i-1,0])<>0
then a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

//нахождение среднего из массива
summ:=0;
for i := 1 to 5 do
summ:=summ+a[i];
sr:=summ/5;

Что дальше?

M
THandle

Модератор: используйте подсветку кода!

Это сообщение отредактировал(а) THandle - 1.6.2010, 19:19

Данкинг

Дата 31.5.2010, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Что именно не получается? Показывай свой код. smile

--------------------

There's nothing left but silent epitaphs.

KtyfG

Дата 31.5.2010, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Люди, будь человечными, ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!! А то я свихнусь с этой фигней! smile

superVad

Дата 1.6.2010, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

Ищешь модуль разницы всех элементов с этим средним значением - у кого это число меньше, тот нам и надо.
Можно так же еще учитывать момент, что чисел с одинаковым отклонением может быть несколько - но кому это нада smile

x128

Дата 1.6.2010, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 29.9.2009

Репутация: нет
Всего: 7

как-то так:

Код


//минимальное отклонение от среднего значения элементов массива
err:=maxint;
for i := 1 to 5 do begin
  e:=sqrt(sqr(sr-a[i])); //квадратичное отклонение
  //e:=abs(sr-a[i]); //абсолютное отклонение
  if e<err then begin
    err:=e;
    pos:=i;
  end;
end;

в err будет минимальное отклонение, а в pos позиция элемента в массиве.

Это сообщение отредактировал(а) x128 - 1.6.2010, 10:00

THandle

Дата 1.6.2010, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

!
THandle

Модератор: Название темы должно отражать ее суть!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »