Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

!!!!!!!МАССССИВЫ!!!!!   Найти похожие ветки 

 
ДЯМАК ©   (2006-05-14 14:25) [0]

КАК В МАТРИЦЕ ОПРЕДЕЛИТЬ ЭЛЕМЕНТ ИМЕЮЩИЙ МИН ОТКЛОНЕНИЕ ОТ СРЕДНЕГО ЗНАЧЕНИЯ ЭЛЕМЕНТОВ МАССИВА?


 
antonn ©   (2006-05-14 14:26) [1]

с такими воплями - никак


 
ДЯМАК ©   (2006-05-14 14:38) [2]

пардон, я извиняюсь, за крик, ну обьясните хотябы алгоритм


 
MBo ©   (2006-05-14 14:53) [3]

Два цикла:
1. Найти среднее значение
2. Найти эл-т с мин. отклонением

трудно придумать другой алгоритм...


 
Шпиён   (2006-05-14 15:02) [4]

Самое простое ("лобовое") решение -
1) перебрать массив, вычислить и запомнить среднее значение элементов массива (просуммировать все элементы, разделить на количество элементов)
2) Для первого элемента массива - получить абсолютное отклонение (модуль) от полученного в (1) среднего значения, запомнить в переменных отклонение  и индекс элемента
3) Цикл: для каждого из элементов массива (исключая первый - для него значения получены на шаге(2)) - получить отклонение от полученного в (1) среднего значения (опять же - модуль), сравнить сохраненное ранее отклонение  с  отклонением проверяемого элемента массива.
Если отклонение проверяемого элемента массива меньше, чем сохраненное, - заменить индекс элемента и сохраненное отклонение на полученные на текущем шаге.

После завершения цикла - имеешь индекс элемента массива, имеющего минимальное отклонение от среднего значения и абсолютную величину отклонения для этого элемента.


 
antonn ©   (2006-05-14 15:03) [5]

"пробежать" по массиву в цикле сможешь?
узнаем среднее значение, например пробегаем массив и ищем минимальный и максимальный элемент
второй пробег - ищем минимальное отклонение, для это используй хотя бы локальную переменную
примерно так:
minL:=massive[0,0];
for x:=0 to 100 do
for y:=0 to 100 do
if (среднее_значение+abs(massive[x,y]))<abs(minL) then begin
minL:=massive[x,y];
end;
minL:= - минимальное отклонение.


 
Шпиён   (2006-05-14 15:04) [6]

ps и вовсе незачем так орать (с)


 
ДЯМАК ©   (2006-05-14 15:12) [7]

Сенкс, всем! Вроде тему понял пойду реализовывать!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
15-1146148130
oldman
2006-04-27 18:28
2006.05.28
Навеяно вопросом "А сколько тебе платят?"...


2-1147245971
KyRo
2006-05-10 11:26
2006.05.28
Вопрос по сервисам и реестру


2-1147463888
Naduev Aleksei
2006-05-12 23:58
2006.05.28
DLL


2-1146793670
eclipse
2006-05-05 05:47
2006.05.28
Строки в DBGrid и не только


2-1147458565
Succube
2006-05-12 22:29
2006.05.28
Сумма





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский