Перечислить по алфавиту все зарезервированные слова используемые в файле - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Необходимо перечислить по алфавиту все зарезервированные слова, используемые в файле, и указать количество появлений каждого слова. Входные данные: текстовый файл самой программы Выходные: зарезервированые слова и их количество

Решение задачи: «Перечислить по алфавиту все зарезервированные слова используемые в файле»

textual
Листинг программы
...
  while NextWord(w) do Inc(b[IndexOf(w)]);
  for i:=1 to High(kw) do if b[i]>0 then WriteLn(kw[i]:15,' ',b[i]);
...

Объяснение кода листинга программы

Данный код на Turbo Pascal выполняет следующие действия:

  1. Создается функция NextWord, которая принимает в качестве аргумента строку w и возвращает следующий символ из этой строки.
  2. Создается массив b, который будет использоваться для подсчета количества вхождений каждого слова в строке.
  3. Выполняется цикл while с условием NextWord(w) до тех пор, пока функция NextWord не вернет false. В каждой итерации цикла символ, следующий за последним символом последнего слова, добавляется в массив b.
  4. Создается массив kw, содержащий все зарезервированные слова.
  5. Выполняется цикл for с условием i<=High(kw) до тех пор, пока индекс i меньше максимального значения. Если значение элемента массива b с индексом i больше нуля, то слово с таким индексом выводится на экран.
  6. Код завершается.

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы