Бинарный поиск в Delphi

[Алексей777911]

Задача: Имеется железнодорожное расписание, содержащее номер рейса поезда, времена отправления и прибытия и станцию прибытия. Организовать поиск номера поезда, время отправления и прибытия, если задана станция.

то есть задан сложный массив

Нужно ли его предварительно сортировать?
Как осуществить бинарный поиск в строках?

[DoDge_VipeR]

Нужно ли его предварительно сортировать?

Если будете использовать бинарный поиск то нужно!

[iron_cross]

Сообщение от Алексей777911

Задача: Имеется железнодорожное расписание, содержащее номер рейса поезда, времена отправления и прибытия и станцию прибытия. Организовать поиск номера поезда, время отправления и прибытия, если задана станция.

то есть задан сложный массив

Нужно ли его предварительно сортировать?
Как осуществить бинарный поиск в строках?

если не жалко скинь текст программы мне на почту gasnet_svet@mail.ru

люди мне нужна эта программа да 4.02.11. У кого она есть напишите её в теме или прикрепите файл или скиньте на мыло. 3аранее спасибо за помощь.

[Serge_Bliznykov]

люди мне нужна эта программа да 4.02.11. У кого она есть напишите её в теме или прикрепите файл или скиньте на мыло.

может, Вам во Фриланс обратиться?..

[mss]

За энное кол-во дензнаков не жалко)

[iron_cross]

видно примера я не получу, тогда хоть обьясните как его сделать,

[Serge_Bliznykov]

видно примера я не получу, тогда хоть обьясните как его сделать,

я думал, что умеете возможностями форума пользоваться...

ладно.
1) внизу страницы есть раздел "похожие темы"
откройте ссылки - там полно примеров

2) поиск по форуму тоже даст положительные результаты.

3) раздел Помощь студентам предполагает, что Вы что-то делаете, и что-то не получается, тогда Вам помогают...

Удачи в учёбе.

[iron_cross]

var
n,i,k:integer;
s:string;
begin
for i:=1 to 3 do
begin
writeln('vvedite nomer reisa');
readln(n);
writeln('vv vremi otp i prib i stan');
readln(s);
end;
begin
writeln('vvedite nomer reisa');
readln(k);
if n=k then write(n, s)
else write('net takoi reisa');
readln;
end.

помогите доделать прогу или дополнить, и как сделать бинарный поиск(можно и без), главное чтоб по условию немного походило. Очень срочно нужно до утра, помогите люди

[casekey]

function BSearch (item: DataArray; count:integer;
                             key:DataItem):integer;
     var
       low, high, mid: integer;
       found:boolean;
     begin
       low:=1; high:=count;
       found:=false;         { не найден }
       while (low<=high) and (not found) do
       begin
         mid:=(low+high) div 2;
         if key<item[mid] then high:=mid-1
         else if key>item[mid] then low:=mid+1
         else found:=true;  { найден }
       end;
       if found then BSearch:=mid
       else BSearch:=0;  { не найден }
     end; { конец поиска }

возвращает индекс искомого элемента