Найти в файле программы процедуры и функции

Понедельник, 07 Сен 2009


В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Узнать, есть ли в программе процедуры и функции. Если они найдены, то подсчитать отдельное количество процедур и функций.

 

Program pandf;

var

  F: Text;

  str: string;

  func,proc :integer;

Begin

  Assign(F,’D:\pascal\Test.txt’);

  Reset(F);

  b:=false;

  func:= 0;

  proc:= 0;

  While not eof(f) do

   Begin

             Readln(f,str);

             if pos(’PROCEDURE’,str)>0 then proc:=proc+1;

             if pos(’FUNCTION’,str)>0 then func:=func+1;

   end;

  writeln(’Procedur-’,proc:3,’ funkciy-’,func:3);

  close(f);

End.

Рубрика: Текстовые файлы | Comments Off