Алгоритм бинарного поиска в массиве.

@De-Artemij · Регистрация: 06.04.2012

Author24 — интернет-сервис помощи студентам

Всем программистам доброго времени суток! А у меня снова проблемы с алгоритмами! Я сейчас изучаю Delphi в основном по книге Никиты Культина "Основы Delphi 7". Теперь проблема обстоит в алгоритме бинарного поиска в массиве. Вот мой код:

Delphi

found:=false;
verh:=0;
niz:=4;
obr:=strtoint(inputbox('Образец',Введите искомую цифру!',''));
repeat
sred:=trunc((niz-verh)/2)+verh;
if art[sred] = obr
then found:=TRUE
else if obr < art[sred]
then niz:=sred-1
else verh:=sred+1;
until (verh > niz) or found;
messagedlg('Совпадение с элементом номер' + inttostr(sred),mtinformation,[mbok],0)

Если что непонятно скачайте вложение. Находит какие-то цифры но не нужный элемент!

Уже час не могу разобратся!

@De-Artemij · 09.04.2012, 21:19 **[ТС]**

Похоже придется заново тему создавать...

Добавлено через 3 минуты
Что, бинарный поиск настолько деревянный, что никто его не знает?...

Одиночка · 09.04.2012, 21:20

Может строку 12 нужно писать:

Delphi

1	until (verh < niz) or found;

@De-Artemij · 09.04.2012, 21:22 **[ТС]**

В каком смысле "нужно писать"?

.Она ведь уже написана

!
А понял знак изменить! Нет.. неработает!

Одиночка · 09.04.2012, 21:26

Ты хоть сравни, что написано у тебя, и что написал я.

@De-Artemij · 09.04.2012, 21:30 **[ТС]**

Да,да я от природы невнимательный понял... но если знак меняется все равно все не так идет! Исходник смотрели?

@De-Artemij · 09.04.2012, 21:34 **[ТС]**

Ох... Все,я разабрался! Сначало надо было отсортировать массив! Вот блин-то а! Я 2 часа этого понять не мог

!
Тема закрыта!

@De-Artemij 15 / 15 / 3 Регистрация: 06.04.2012 Сообщений: 74 Записей в блоге: 12
	09.04.2012, 21:19 [ТС]	2
	Похоже придется заново тему создавать... Добавлено через 3 минуты Что, бинарный поиск настолько деревянный, что никто его не знает?... 0

@De-Artemij 15 / 15 / 3 Регистрация: 06.04.2012 Сообщений: 74 Записей в блоге: 12
	09.04.2012, 21:22 [ТС]	4
	В каком смысле "нужно писать"?.Она ведь уже написана! А понял знак изменить! Нет.. неработает! 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	09.04.2012, 21:26	5
	Ты хоть сравни, что написано у тебя, и что написал я. 0

@De-Artemij 15 / 15 / 3 Регистрация: 06.04.2012 Сообщений: 74 Записей в блоге: 12
	09.04.2012, 21:30 [ТС]	6
	Да,да я от природы невнимательный понял... но если знак меняется все равно все не так идет! Исходник смотрели? 0

@De-Artemij 15 / 15 / 3 Регистрация: 06.04.2012 Сообщений: 74 Записей в блоге: 12
	09.04.2012, 21:34 [ТС]	7
	Ох... Все,я разабрался! Сначало надо было отсортировать массив! Вот блин-то а! Я 2 часа этого понять не мог! Тема закрыта! 0