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

      Num : integer;       { номер проверяемого автомобиля }
      { Процедура ввода номеров из файла }
procedure ReadFromFile(var aFile: text);
var i: integer;
begin
Fact:=0; { для начала подсчета номеров обнуляем счетчик }
for i:=1 to CNumbers do begin { цикл по массиву номеров }
while Eoln(aFile) do { Пропуск пустых строк }
      if Eof(aFile) then Break else Readln(aFile);
if Eof(aFile) then Break; { если конец файла – выход из цикла }
Read(aFile, Numbers[i]); { читаем номер в элемент массива }
Fact:= Fact+1;       { наращиваем счетчик номеров }
end;
end;
{ Функция поиска в массиве номеров автомобилей }
function FindNumber(aNum: integer): boolean;
var i: integer;
begin
      FindNumber:= false;
      for i:=1 to Fact do
      if aNum=Numbers[i] then begin
      FindNumber:= true;       { нашли ! }
      Break;       { выход из цикла }
      end
end;
begin       {--- Главная программа ---}
      { открываем файл и читаем номера автомобилей }
      Assign(F, 'P_38_2.in'); Reset(F);
      ReadFromFile(F);       { ввод номеров из файла }
      Close(F);
      repeat       { Главный цикл }
      Write('Укажите номер автомобиля: '); Readln(Num);
      if FindNumber(Num)
      then Writeln('Эта машина в розыске, хватайте его!')
      else Writeln('Пропустите его');
      until Num=0; { 0 – признак завершения программы}
end.

Ещё раз о статистике

Следующая программка будет маленькой, да удаленькой. Вернемся к статистике, с которой познакомились при обработке классного журнала. Напомню, что статистика – это наука, изучающая массовые явления. В текстах наших программ полным-полно разных букв, – давайте посчитаем их. Результатом работы программы будет таблица, похожая на эту.

a 119
b 45
c 72
...