не могу разобраться с программой. Как разработать программу "Операторы"?
как разработать программу "операторы" в паскаль. Считывается файл, написанный на ЯВУ. найти все операторы присваивания
В своей программе, открываете файл с ЯВУ как обычный текст, и как в обычном текстовом файле делаете поиск на "=" или ":=" и с каждым успешным поиском увеличиваете счётчие на 1. В конце обработки файла, выводите количество найденых операторов присваивания.
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f: TEXTFILE;
Count: UINT64;
r, a: CHAR;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
AssignFile(f,'Расположение вашего ЯВА файла');
FileMode := 0;
Reset(f);
Count := 0;
while not Eof(f) do
begin
Read(f, r);
if r = '=' then Inc(Count);
end;
CloseFile(f);
WriteLn('Количество операторов присваивания: ' + IntToStr(Count));
Readln(a); // Это не нужно
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f: TEXTFILE;
Count: UINT64;
r, a: CHAR;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
AssignFile(f,'Расположение вашего ЯВА файла');
FileMode := 0;
Reset(f);
Count := 0;
while not Eof(f) do
begin
Read(f, r);
if r = '=' then Inc(Count);
end;
CloseFile(f);
WriteLn('Количество операторов присваивания: ' + IntToStr(Count));
Readln(a); // Это не нужно
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.