Главная страница
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.027 c
1-1099738462
Lamer v0.000001
2004-11-06 13:54
2004.11.21
TCombobox


3-1098358350
Zif
2004-10-21 15:32
2004.11.21
Если DBEdit имеет нулевое значение, то как подставить в негоТекст


8-1093110128
Anonymous
2004-08-21 21:42
2004.11.21
fmod или bass?


4-1097480980
Delphi5.01
2004-10-11 11:49
2004.11.21
Как использовать ADirectoryHandle: THandle


14-1099641955
d[D]E
2004-11-05 11:05
2004.11.21
Вертикальный DBGrid