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

[kate-27]

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

[sllh_111]

наработки есть?
да и ещё, если можно опишите программу в двух словах(ну всмысли покороче, только то что нужно, без пояснений)

[RUSt88]

Kate-27, не надо плодить тем, пиши на мыло, сделаю в кратчайшие сроки, есть готовый алгоритм этого бинарного поиска

моераторы сорри

[Anatole]

алгоритм быстрого поиска. Реализован в демонстрационных примерах Турбо паскаля

[Gray_Jagger]

readln(q);

  if a[n div 2]=q then q:=n div 2 else begin
    for i:=1 to n div 2 do if a[i]=q then q:=i else begin
	for i:=n div 2 to n do if a[i]=q then q:=i else q:=0;
      end;
       end;

держи, но можно проще:

readln(q);
for i:=1 to n do
 begin
 if a[i]=q then q:=i else q:=0;
 end;

[kate-27]

нет у меня никаких наработок..что вы хотите от моих блондинистых мозговкто-нить плиз просто напишите правильную программку(полностью)

[Google2010]

uses crt;
var a:array[1..100] of integer;
    q,i,j,k,n:integer;
begin
  readln(n);
  for i := 1 to n  do
    readln(a[i]);
  readln(q);
  i := 1;
  j := n;
  while i <= j do begin
    q := i + (j - i) div 2;
    if q > A[k] then
      i := k + 1
    else if q < A[k] then
        j := k - 1
          else
            break;
  end;
  if a[k]<>q then k:=0;
  writeln(k);
  readkey;
end.