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

Вниз

Поиск числа   Найти похожие ветки 

 
Petr   (2009-06-11 13:09) [0]

Привет!!! У меня вот такой вопрос:
Есть ряд из чисел и отдельно от этого ряда заданное число. Помогите составить код для поиска по этому ряду чисел числа наиболее близкого к заданному числу.
Я не могу алгоритм составить


 
oldman ©   (2009-06-11 13:14) [1]

Для начала упорядочи ряд по возрастанию
Пока число в ряду меньше исходного бежим по ряду вперед
Как только больше - ура! мы в вилке из двух чисел
Осталось выяснить, к какому мы ближе

:)))


 
Petr   (2009-06-11 13:16) [2]

Т.е. через while надо? О через for можно?


 
И. Павел   (2009-06-11 13:16) [3]

rez:=mas[0];
for i:=1 to length(mas)-1 do
 if abs(mas[i]-data)<abs(rez-data) then rez:=mas[i];


Если массив большой, лучше, как написал oldman ©, упорядочить, а потом методом половинного деления.


 
oldman ©   (2009-06-11 13:19) [4]


> Petr   (11.06.09 13:16) [2]
> Т.е. через while надо? О через for можно?


Почему через while?
Я такого не писал!


 
MBo ©   (2009-06-11 13:28) [5]

>Почему через while?
>Я такого не писал!

Пока число в ряду меньше

;)



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

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

Наверх




Память: 0.45 MB
Время: 0.005 c
1-1211807607
Jungle
2008-05-26 17:13
2009.08.09
"Правильно" преобразовать тип Variant


11-1204867469
ILPU
2008-03-07 08:24
2009.08.09
Сохранение содержимого TreeView


15-1244539317
Тимохов_
2009-06-09 13:21
2009.08.09
Как проверить есть ли доступ по TCP порту на компьютер


15-1244202663
KSergey
2009-06-05 15:51
2009.08.09
Параметры (прокси) для аккаутна system


15-1244481707
Gydvin
2009-06-08 21:21
2009.08.09
глюки при умножении





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский