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

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

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

Код к задаче: «Перечислить по алфавиту все зарезервированные слова используемые в файле - 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]);
...

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ