Поиск числа

← →
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 ©, упорядочить, а потом методом половинного деления.

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

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

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

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

;)

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