Обработка одномерных массивов.2 уровень

[kate-27]

Плиз если кто знает как напишите в консольном режиме)
Заданы целочисленный массив а1, а2,..., аn, упорядоченный по возрастанию(а1<a2<...<an) и целочисленная переменная q. Переменной k присвоить номер элемента массива А, равного q, или 0, если такого элемента нет. Использовать следующий алгоритм поиска: сравнить q со средним элементом массива( или элементом около середины); если эти числа равны, то поиск завершен, если же q меньше значения среднего элемента, то поиск теперь надо вести в левой половине массива, а иначе-в правой половине; к выбранной половине применить тот же алгоритм.

[RUSt88]

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

[Stilet]

Этот алгоритм по-моему называется методом половинного деления

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var a:array[1..20] of integer;
  q,i,e:integer;
begin       {$o-}
 for i:=low(a) to high(a) do begin
  a[i]:=random(100);
  for q:=low(a) to i-1 do begin
   if a[q]>a[i] then begin e:=a[q];a[q]:=a[i];a[i]:=e;end;
  end;
 end;
 for i:=low(a) to high(a) do  write(a[i]:5);


 writeln;
 i:=high(a) div 2;
 q:=5;

 while (i<>2)and(q<>a[i]) do begin
  if a[i]>q then
    i:=i-i div 2
  else
    i:=i+i div 2
 end;
 writeln('q=',i);

  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Устроит?

[RUSt88]

Stilet, может и так его еще называют, но это точно бинарный поиск