Главная страница
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.045 c
14-1099645672
Nick-From
2004-11-05 12:07
2004.11.21
Пятничная задачка :) Продажа машины ОКА :)


14-1099471832
TUser
2004-11-03 11:50
2004.11.21
1 пост - 1 голос


1-1099519559
BadProg
2004-11-04 01:05
2004.11.21
TClientSocket в Delphi 7


3-1098527932
Black
2004-10-23 14:38
2004.11.21
Как отобразить значение n ой записи m ого столбца?


4-1097429834
Clampo
2004-10-10 21:37
2004.11.21
Монитор