![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 31.03.2009
Сообщений: 8
|
![]()
Среднестатистическим назовем элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума. В заданном массиве Х(n, m) найти номера (индексы) среднестатистического элемента.
Ниже я привел код своей процедуры, данные нужно вводить в StringGrid_In, а рез-т должен отображаться в StingGrid_Out Помогите разобраться как найти индекс среднестатистического элемента в двухмерном массиве procedure TForm1.BitBtn_OkClick(Sender: TObject); var n, m, i, j, fix_n, fix_m: integer; sa, sum: real; kmin:real; a: array of array of real; begin n:=StringGrid_In.ColCount; m:=StringGrid_In.RowCount; fix_n:=StringGrid_In.FixedCols; fix_m:=StringGrid_In.FixedRows; SetLength(a,n-fix_n); for i:=0 to n-fix_n-1 do SetLength(a[i],m-fix_m); for i:= fix_n to n-1 do for j:= fix_m to m-1 do a[i-fix_n,j-fix_m]:= StrToFloat(StringGrid_In.Cells[i,j]); sum:=0; // for i:=1 to n-1 do for j:=1 to m-1 do sum:=sum+a[i-fix_n,j-fix_m]; //сумма всех элементов массива sa:=(sum)/((n-fix_n)*(m-fix_m)); //среднее арифметическое kmin:=i; for i:=2 to n-1 do for j:=2 to m-1 do if abs(a[i-fix_n,j-fix_m]) < abs(kmin - sa) then //неудачная попытка kmin:=i-fix_n; n:=StringGrid_Out.ColCount; m:=StringGrid_Out.RowCount; fix_n:=StringGrid_Out.FixedCols; fix_m:=StringGrid_Out.FixedRows; //вывод результата в StringGrid_Out for i:= fix_n to n-1 do for j:= fix_m to m-1 do StringGrid_Out.Cells[i,j]:= FloatToStr(kmin); end; end. Последний раз редактировалось MaksimSeriy; 08.04.2009 в 22:31. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 23.02.2009
Сообщений: 38
|
![]()
...думаю из примера будет всё ясно, но
в данном примере очень важно чтоб количество строк и столбцов совпадало в обоих СтрингГридах, и FixedCols=1 и FixedRows=1 ... sg1: TStringGrid; sg2: TStringGrid; ... Код:
Чем меньше вы знаете, тем больше я ценен как специалист...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С++ Двухмерные массивы | rus_rock_no_dead | Помощь студентам | 4 | 23.05.2010 23:21 |
Двухмерные массивы(StringGrid) | MaksimSeriy | Общие вопросы Delphi | 3 | 06.04.2009 01:27 |
про двухмерные массивы | alexov | Общие вопросы C/C++ | 7 | 07.12.2008 21:03 |
Двухмерные массивы (С++) | Nattka | Помощь студентам | 2 | 04.12.2008 21:15 |
Двухмерные массивы - ошибка | fudzy79 | Помощь студентам | 21 | 06.02.2008 22:50 |