Бинарный поиск числа в файле
Как организовать бинарный поиск в файле?
//бинарный поиск числа ch в файле procedure bin(n,k:integer); Var a,ser:integer; Begin ser:=(k-n+1)div 2; seek(f,n+ser-1); Read(f,a); If (k-n>0)Then if cha Then Bin(n+ser,k) else begin Write('Элемент ',ch,' есть в файле!'); exit; end else Writeln('Нет такого элемента!'); end; ... //вызов Assign(f,'temp.txt'); Reset(f); Bin(1,m); close(f); ...
