Динамические структуры данных. Задание практикума. Язык Паскаль. Вылиток А.А - 40 стр.

var name:string;
    g:text;
begin
  write('Введите имя файла:9');
  readln(name);
  assign(g,name);
  pairs(g);
  close(g);
end.

Сделаем два замечания к данной программе. Во-первых, в ней использованы
средства языка Турбо Паскаль, которых нет в стандартном Паскале: assign,
close, string. Во-вторых, программа будет корректно работать только с
файлами, сбалансированными по скобкам. Если баланса скобок нет, во время
выполнения может произойти ошибка, связанная с попыткой взять элемент из
пустого стека. Примером файла, подходящего для обработки данной
программой, является файл, содержащий её исходный текст.



                     Задание практикума на ЭВМ

      В этом разделе приводятся варианты задания практикума на ЭВМ по
теме «Динамические структуры данных».

       Постановка задачи
      Дан текст, состоящий из непустой последовательности слов из латинских
букв, разделённых запятыми, за последним словом – точка; каждое слово
состоит не более, чем из 10 символов. Требуется найти k – количество слов,
которые удовлетворяют условию, заданному вариантом задания. В некоторых
вариантах кроме текста задаётся ещё одна буква.

       Варианты

       Подсчитать количество слов, которые:
 1)   имеют последней буквой заданную;
 2)   содержат заданную букву ровно два раза;
 3)   содержат заданную букву не менее двух раз;
 4)   первой и последней буквой имеют одну и ту же букву;
 5)   имеют длину не менее пяти букв;
 6) имеют первой буквой заданную и ещё хотя бы одно её вхождение;
 7) имеют последней буквой заданную и ещё хотя бы одно её вхождение;
 8) содержат заданную букву, но ни первой, ни последней;
 9) не имеют последней буквой заданную;
 10) имеют длину не более трёх букв;

                                    - 40 -