Найти в упорядоченном массиве заданный элемент методом деления массива пополам (бинарный поиск)

@@leks · Регистрация: 25.05.2012

Author24 — интернет-сервис помощи студентам

найти в упорядоченном массиве заданный элемент методом деления массива пополам(бинарный поиск)

Добавлено через 5 минут
помогите пожалуста

@Puporev · 25.05.2012, 18:23

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k,l,r,m:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{введем массив по возрастанию}
a[1]:=random(5);
for i:=2 to n do
a[i]:=a[i-1]+random(5)+1;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Введите число для поиска k=');
readln(k);
{бинарный поиск}
l:=1;
r:=n;
f:=false;
while(l<=r)and not f do
 begin
  m:=(l+r)div 2;
  if k<a[m] then r:=m-1
  else if k>a[m] then l:=m+1
  else f:=true;
 end;
if f then write('Число ',k,' есть в массиве')
else write('Числа ',k,' нет в массиве');
readln
end.

@@leks · 26.05.2012, 11:26 **[ТС]**

Большое спасибо

@@leks · 02.06.2012, 13:47 **[ТС]**

Помогите что значит эта строка while(l<=r)and not f do???? пожалуйста

@Puporev · 02.06.2012, 13:50

Пока левая граница не больше правой границы и не нашли данное число

@@leks 0 / 0 / 0 Регистрация: 25.05.2012 Сообщений: 27
		1
	Найти в упорядоченном массиве заданный элемент методом деления массива пополам (бинарный поиск) 25.05.2012, 17:14. Показов 6803. Ответов 4 Метки нет (Все метки) найти в упорядоченном массиве заданный элемент методом деления массива пополам(бинарный поиск) Добавлено через 5 минут помогите пожалуста 0

@@leks 0 / 0 / 0 Регистрация: 25.05.2012 Сообщений: 27
	26.05.2012, 11:26 [ТС]	3
	Большое спасибо 0

@@leks 0 / 0 / 0 Регистрация: 25.05.2012 Сообщений: 27
	02.06.2012, 13:47 [ТС]	4
	Помогите что значит эта строка while(l<=r)and not f do???? пожалуйста 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.06.2012, 13:50	5
	Пока левая граница не больше правой границы и не нашли данное число 1