Песни о Паскале

325
234
11

Такой файл можно напечатать любым редактором текста, в том числе и встроенным в IDE. Мы так и поступим: создайте новый файл, впечатайте в него десяток-другой пришедших на ум номеров и сохраните в рабочей папке под именем «Police.txt». Окно с этим файлом пока не закрывайте, оно ещё пригодится.

Все, база данных готова! Только не предлагайте полицейскому рыться в этом файле, – вместо благодарности вы услышите совсем другие слова. В довершение доброго дела напишем программу для поиска номера в этой базе. Такая программа должна работать как часовой, запрашивая у полицейского номер автомобиля и сообщая о том, содержится ли этот номер в БД. Признаком выхода из программы будет ввод нулевого номера.

Итак, приступим к программе «P_29_1». Схема главной программы ясна из вышесказанного. Выносить заключение об автомобиле будет функция булевого типа, принимающая два параметра: файловую переменную, связанную с нашей БД, и номер искомого автомобиля. Если номер в базе данных обнаружится, функция вернет значение TRUE. Ввиду простоты алгоритма не буду рисовать блок-схему. Если чуете в себе силу, напишите программу сами, и, после некоторых мучений, сравните с тем, что показано ниже.

{ P_29_1 – Полицейская база данных, версия 1 }
function FindNumber(var aFile: text; aNumber: integer): boolean;
var N: integer; { текущий номер в БД }
begin
      FindNumber:= false; { на случай, если файл пуст }
      Reset(aFile); { позицию чтения устанавливаем в начало файла }
      N:=0;       { в начале цикла задаем несуществующий номер }
      { читаем номера из файла, пока НЕ конец файла И номер НЕ найден }
      while not Eof(aFile) and (N<>aNumber) do begin
      Readln(aFile, N);
      FindNumber:= (N=aNumber); { true, если номер нашелся }
      end;
end;
var F: text; Num: integer;
begin {----- Главная программа -----}
      Assign(F, 'Police.txt');
      repeat
      Write('Укажите номер автомобиля: '); Readln(Num);
      if FindNumber(F, Num)
      then Writeln('Эта машина в розыске, хватайте его!')
      else Writeln('Пропустите его');
      until Num=0; { 0 – признак завершения программы}
      Close(F);
end.

Поясню некоторые моменты. В начале главной программы файловая переменная F связывается с файлом «Police.txt». Далее следует хорошо знакомая конструкция REPEAT–UNTIL с проверкой условия в конце цикла.

Самое интересное скрыто внутри функции FindNumber (от Find – «искать», Number – «номер»). Туда передаются два параметра, один из которых – файловая переменная. Обратите внимание на способ её передачи: файловая переменная передается по ссылке (в заголовке указано слово VAR). И никак иначе такую переменную не передают! Со временем узнаете причину, а пока просто запомните: файловые переменные передают внутрь процедур и функций только по ссылке! Следовательно, параметр aFile ссылается на глобальную переменную F.

А к чему здесь приставки «a» перед именами параметров: aFile, aNumber? Или это тоже правило языка? Нет, друзья, это всего лишь уловка программистов, которую полезно перенять. Чем сложнее будут ваши программы, тем гуще будут заселены разного рода переменными и параметрами. Во