Турбо паскаль Бинарный поиск

[Андрос]

всем доброго времени суток, попалась мне задача по лабе паскаля "Бинарный поиск". и все на этом...теорию почитал, возникла трудность в склеивании 2х кодов, в первом идет сортировка, во втором бинарный поиск. но он работает с отсортированными данными, но потом надо подключить в код сортировку (второй листинг). Задача должна сортировать массив по убыванию и ищет в нем элемент равный Х, Х вводится с клавиатуры. Помогите пожалуйста склеить листинги...и еще один вопрос - какие могут быть загвоздки с этим видом поиска? он ищет только в одномерном массиве? И еще? может кто немного подкорректировать ввод элементов массива, чтоб спрашивала - заполняем в ручную - да,нет? если нет - то вводим размерность массива, и элемент который надо найти, потом срабатывает наша сортировка, а потио наш бин. поиск, помогите немного подшаманить эти шайтан-листинги. С уважением, Андрей...

сортировка:

Program _;
uses crt;
const n=10;
type am=array[0..n] of integer;
var a:am; x,m:integer; i,j,f:byte;
begin
clrscr;
randomize;
          for i:=1 to n do a[i]:=random(10); //сортирует
          for i:=2 to n do                          //сортирует
          for j:=n downto i do                    //сортирует
              if a[j-1]<a[j] then begin
                 x:=a[j-1];
                 a[j-1]:=a[j];
                 a[j]:=x;
                 end;                                 //сортирует
          write (' введи элемент для поиска=');  readln (m);
          write ('отсортированный начальный массив= ');
          for i:=1 to n do write (a[i],'  ');
          writeln;
          for i:=1 to 10 do begin
          if a[i]=m then begin writeln ('найден!=',m,' его место=',i); break; end;
           end;
end.

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

Program _;
const count =10;
var M: array[1..count] of byte; N, i, First, Last: Byte; a: integer; Found: boolean ;
begin
  randomize;
  for i:=1 to count do M[i]:=random(10);
  Writeln('Введи элемент для поиска ='); Readln(N);
  a := 0;
  First := 1;
  Last := count;
  Found := False; {Элемент не найден}
  
  repeat {Повторять поиск}
  i := (First + Last) div 2; {Разделить на две части}
  if M[i] = N then Found:=True
    else
      begin
        if M[i] > N then First := i+1 {Искать элемент в правой части}
        else Last := i-1; {Искать элемент в левой части}
      end;
  a := a+1; {Увеличить счетчик числа итераций}
  until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
  
  if Found then Writeln('Искомый элемент ',N,' в массиве занимает ',I,'-ю позицию')
  else
  Writeln('В массиве нет искомого элемента ',N);
  Writeln('Поиск выполнен За ',a,' итераций');
  Writeln('Завершить>');
  Readln;
end.

[Poma][a]

Ну хорошо..

Т.к. время - вечер.. Хочется спать.. и уроки не деланы, то пишу прямо тут.. не проверяя..

Поехали :

uses crt;

const SIZE=10;

type am=array[1..SIZE] of integer; // в тушке программы у Вас нет обращения к 0-му элементу массива, поэтому я поставил 1
var a:am; x,m:integer; i,j,f:byte; ch : Char;
begin
clrscr;
randomize;
Write ('Do you prefer to input digits automatically? Y/N')
ReadLn (ch);
if UpCase (ch) = 'Y' then begin
          n := SIZE;
          for i:=1 to n do a[i]:=random(10) // Заполняем 
end
else begin
       ReadLn (n);
       for i := 1 to n do
              Read (a[i]);
end;

Write ('What elem do you want to look for in this array ? ');
ReadLn (m); // не ахти имя..

          for i:=2 to n do                          //сортирует
          for j:=n downto i do                    //сортирует
              if a[j-1]<a[j] then begin
                 x:=a[j-1];
                 a[j-1]:=a[j];
                 a[j]:=x;
                 end;                                 //сортирует

          write ('отсортированный начальный массив= ');
          for i:=1 to n do write (a[i],'  ');
          writeln;

 count := 0;
  First := 1;
  Last := n;
  Found := False; {Элемент не найден}
  
  repeat {Повторять поиск}
  i := (First + Last) div 2; {Разделить на две части}
  if a[i] = m then Found:=True
    else
      begin
        if a[i] > m then First := i+1 {Искать элемент в правой части}
        else Last := i-1; {Искать элемент в левой части}
      end;
  count := count+1; {Увеличить счетчик числа итераций}
  until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
  
  if Found then Writeln('Искомый элемент ', m,' в массиве занимает ',I,'-ю позицию')
  else
  Writeln('В массиве нет искомого элемента ',m);
  Writeln('Поиск выполнен За ',count,' итераций');
  Writeln('Завершить>');
  Readln
          
end.

Дихотомия и пузырек - на Вашей совести

он ищет только в одномерном массиве?

Нет.

Кстати, старичек турбушка не позволяет использовать такие ('//') комментарии.. Но в названии темы Вы указали именного его.. Что это? Распространение заведомо ложной информации?