program.txt

词法分析器,学编译原理时做的,很简单,可供初学者借鉴

program test;
var number,data:integer
begein
number := 2*4-2*(3-1)/4;
data := 3*2;
if(number > data) then
 number := data;
else
 data := number;
end.