Найти в файле программы процедуры и функции
07 Сен 2009 | Comments Off | Рубрика » Текстовые файлы
В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Узнать, есть ли в программе процедуры и функции. Если они найдены, то подсчитать отдельное количество процедур и функций.
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.