program.txt

来自「词法分析器,学编译原理时做的,很简单,可供初学者借鉴」· 文本 代码 · 共 10 行

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.