b.txt

一个编译原理的词法分析程序,功能都已经完备了,可以从文件读入,输出分析完成的各个词

var tmp1, AB, c123: integer;
begin tmp1:=123*23 + 93*5;
AB:=(tmp1+5)*tmp1;
c123:=AB+tmp1;
if c123*AB>=tmp1+12 
then 
while c123+AB>10 do
begin 
tmp1:=c123;
procedure proc23CE(a1,b2c);
begin
procedure proc34T;
begin
  AB:=324*c123;
end
end
   end
else
   if 10>12 then c123:=10; 
else tmp1:=c123;
@