Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Серийный упорядоченный поиск в массиве   Найти похожие ветки 

 
X   (2004-11-05 20:11) [0]

подскажите как сделать серийный упорядоченный поиск.

Искомые числа предварительно упорядочиваются по возрастанию их величины Первое число ищется последовательным просмотром списка чисел, хранящихся в машине, а поиск каждого нового числа производится на участке, левой границей которого является адрес последнего найденного числа Правая граница списка чисел остается неизменной, а левая постепенно приближается к правой.
Среднее количество циклов поиска одного числа определяется величиной:
Iсреднее=i/n
l - объем списка чисел, находящихся в ОЗУ;
n - количество искомых чисел.


 
uny   (2004-11-05 20:17) [1]

деление пополам - как Вы описали, только не последовательный просмотр, а участки эти пополам делить - если там меньше чем искомое, то нет смысла просматривать все числа до половины участка, можно сразу следующую половину смотреть.


 
X   (2004-11-05 20:30) [2]

а как это програмно реализовать на дельфях


 
uny   (2004-11-05 20:36) [3]

"поиск в упорядоченном массиве" в поисковике накраяйняк..


 
X   (2004-11-05 20:44) [4]

я искал там нету нифига


 
X   (2004-11-05 20:45) [5]

мне надо вначале этот масив упорядочить а потом сделать в нем поиск


 
X   (2004-11-05 20:46) [6]

мне надо вначале этот масив упорядочить а потом сделать в нем поиск


 
uny   (2004-11-05 20:47) [7]

попробуйте в яндексе, я там попробовал прежде чем предлагать - что бы не запозориться


 
X   (2004-11-05 20:50) [8]

мне надо вначале этот масив упорядочить а потом сделать в нем поиск


 
X   (2004-11-05 21:47) [9]

неподскажешь вот эта и есть упорядачивание как мне нужно
procedure TForm1.Button3Click(Sender: TObject);
var
buf,j,min:integer;
begin
for i:=1 to 5 - 1 do
begin
min:=i;
     for j:=i+1 to 5 do
if m[j] < m[min] then min:=j;

buf:=m[i];
m[i]:=m[min];
m[min]:=buf;



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

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.062 c
1-1099506925
Елена
2004-11-03 21:35
2004.11.21
TMemo


14-1099658234
Гайцы-Газазад
2004-11-05 15:37
2004.11.21
Виват, Днепр! Жаль, Зенит подкачал...


3-1098135004
TechnoDreamer
2004-10-19 01:30
2004.11.21
Реструктуризация базы Access 2000


14-1099487352
TUser
2004-11-03 16:09
2004.11.21
Кто знает фотошоп?


1-1099910092
slaga
2004-11-08 13:34
2004.11.21
Замена Glyph на батоне