Линейный (прямой) поиск в файле
Как организовать линейный поиск в файле?
//поиск числа ch в файле procedure LinPoisk; Var i,a:integer; b:boolean; Begin Write('Прямой поиск: '); Assign(f,'temp.txt'); Reset(f); b:=false; For i:=1 to m do begin Read(f,a); If a=ch then b:=true; end; if b then Write('Элемент ',ch,' есть в файле!') else Write('Элемента ',ch,' нет в файле!'); close(f); end;
