for i:=0 to n-1 do write(AA[i]:4);
writeln(‘Масив:’);
AA[10]:=53; AA[11]:=54; AA[12]:=60; AA[13]:=69; AA[14]:=77; AA[15]:=94;
AA[5] :=35; AA[6] :=40; AA[7]:= 41; AA[8]:= 42; AA[9]:= 48;
AA[0] :=0;P AA[1] :=16;P AA[2]:= 16;P AA[3]:= 23; AA[4]:= 25;
if x<a[m] then R:=m-1 elseP Posit:=m;
writeln(‘L=’,L,’ R=’,R,’ m=’,m,’ a[m]=’,a[m]);
while (L<=R)and(Posit<0) do
procedure DblSearch(x,N:integer;a:mas;var Posit:integer);
typeP mas=array [0..n-1] of integer;
Ну и листинг программы
Блок схема решения задачи двоичным методом на языке Pascal
Алгоритм поиска нужного значения (блок — схема)
Блок-схема Procedure DblSearch(x,N,a,Posit)
Нарисуем блок-схему
Нужно найти число 60
0, 16, 16, 23, 25, 35, 40, 41, 42, 48, 53, 54, 60, 69, 77, 94
Задача: допустим у нас есть векторный масив
Обучение компьютерной грамотности. Системное администрирование, программирование. Новости ИТ
Записки начинающего программиста часть 1. Turbo Pascal 7.0. Двоичный поиск в массиве. | Сайт для системных администраторов и пользователей ПК
Комментариев нет:
Отправить комментарий